


ISSN 0296-6689 


REVUE DU STANDARD AMSTRAD ET SCHNEIDER 









rer 








10F les 8 
programmes 


Informatique AMSTRAD 





[M 2604-HS-N° 3-10 F 





CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 


| Dès que la revue est chez l'imprimeur, le 
| sommaire apparaît sur la page concernée. 


Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis- 
quettes, cassettes, livres). 


Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour — 24h sur 
24h — sans avoir à attendre que la ligne de 
téléphone soit libre les mercredi et vendredi. 


Les correspondances sont relevées chaque 
jour | 

De plus, vous pouvez, entre lecteurs, écrire, 
recevoir des messages, faire des échanges 
techniques. 


Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 





24h sur 24h, 7 jours sur 7, elles sont acces- 
sibles. Nous venons d'améliorer ce service. | 
Depuis le 1er janvier 1987, c'est chaque | 
jour que les annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas- 

ser vos annonces sur le serveur. | 


Des informations sont à votre disposition et 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas. 
d'erreur. | 


Nos nombreux revendeurs peuvent utiliser 
le MINITEL pour passer commande. L'en- 
semble des produits disponibles est présen- 
té. Nous avons simplifié au maximum la pro- 
cédure. Lecteurs et revendeurs peuvent aus- 
si vérifier si le produit est disponible et quel | 
est son prix de vente public. 


36.15, TAPEZ MHZ 
ET FAITES VOTRE CHOIX 
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Après l'immense succès obtenu par nos deux 
premiers numéros hors-série, nous avons décidé 


de poursuivre l'expérience en publiant et 


périodiquement une nouvelle sélection de 
programmes de jeux, utilitaires et éducatifs qui 
vous seront proposés avec le label de qualité CPC. 
Les abonnés recevront gratuitemerit tous ces | 
numéros. Une bonne nouvelle n'arrivant jamais 
Seule, nous avons le plaisir d'annoncer aux 
heureux utilisateurs de PC 1512 la naissance de 
PCompatibles Magazine que nous avons préparé 
dans le même esprit que CPC et qui deviendra 
sûrement la revue des vrais passionnés du 


standard PC. 


Un dernier message enfin, pour tous ceux qui ont 


contenant tous les programmes de ce hors-série | 1 ( 
| 


des ampoules au bout des doigts : la disquette 


n°3 est disponible aux conditions habituelles 
Sous la référence HS3. Vous voyez bien que votre 
Amstrad n'a plus aucune raison de se plaindre ! 


Amusez-vous bien ! 
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cernent les logiciels publiés dans ia revue. 
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Ce logiciel vous permettra de 
vous entraîner seul ou à 
deux au célèbre jeu télévisé 
"Les chiffres et les lettres”. 


Sonorisé en stéréo, Il est do- 
té d'un affichage lisible mé- 
me sur l'écran monochrome. 











Les caractères en double-hauteur 
ont été réalisés à l'aide de la routine 
décrite dans CPC n° 7. 

Vous trouverez les règles du jeu 
dans le programme qui est divisé 
en deux parñiies : la première com- 
porte l'écran de présentation ainsi 
que la RSX double hauteur, alors 
que la seconde constitue le jeu pro- 
prement dit. Une dernière précision 
cependant ; si vous souhaitez ré- 


DES LETTRES === 


Michel BUZON parti, qui est de 1 minute, il suffit de 


presser la touche Return. Que le 
L' Ç meillleur gagne ! 
1 $ ÿ \ 








1! CET EE EP EE TT) 
CETTETETPETPETTSS 

2° + DES CHIFFRES E 
T DES LETTRES # 

3: CIPTTPTPTICTEITE 
CYTTPTIEPETTEES 

4: 

S ‘ presentatioh k loader - par Michel B 
UZON - septesbre 1986 - son stereo - 

re 


" rsx double hauteur pär Michel GANTIE 
- CPC # 7 - page 60 /b1 


10 MEMORY L9FFF:60SUB 60000:CALL &BBOO:C 
ALL &BBFF:CALL LBCÉS:HODE O: BORDER 13:F0 
R F=0 TO 15:INK F,13:NEXT 

20 MINDON #1,1,20,1,8:PAPER #1,3:PEN #1, 
O:CLS #1 

30 NINDOW #2,1,20,9,22:PAPER 42,5:PEN #2 
b:CLS 42 

40 MOVE 0,40:DRANR 839,0, 1:DRANR 0,359,1 
:DRAMR -839,0,1:DRANR 0,-359, 1 

50 MOVE 4,42:DRANR 631,0, 1:MOVE 2,397:DR 
ANR 831,0, 

80 MOVE 8,44: DRANR 627,0,4:DRANR 0,350,4 
1DRAWR -627,0,4:DRANR 0,-350,4 

70 MOVE 8,46:DRANR 627,0,4:MOVE B,392:DR | 
AWR 827,0,4 

80 MOVE 10,48:DRANR 619,0,4:DRANR 0,342, 
4:DRANR -619,0,4:DRANR 0,-342,4 





90 MOVE 12,50:DRANR 819,0,4:MOVE 12,389: 
DRAWR 619,0,4 

100 MOVE 14,52:DRAMR 611,0,1:DRANR 0,334 
11: DRAMR -611,0,1:DRAWR 0,-334,1 

110 MOVE 14,54:DRAMR 607,0,1:MOVE 14,385 
#DRANR 607,0,1 

120 MOVE 14,270:DRANR 607,0,1:MOVE 14,26 
B:DRANR 607,0,1 

130 MOVE 12,266:DRAWR 613,0,4:MOVE 12,26 
4: DRAWR 613,0,4 

140 MOVE 12,2b2:DRAMR 613,0,4:MOVE 12,26 
O:DRAWR 613,0,4 

150 MOVE 14,258:DRAWR 607,0,1:MOVE 14,25 
6:DRAWR 607,0,1 

160 CALL &ASEB:PAPER 3:PEN O:LOCATE 2,3: 
T$="CPC & Michel BUZON": !DHAUT,OT$ 

170 LOCATE #1,6,7:PRINT #1 ,'presentent" 
180 PAPER S:PEN B:LOCATE 2,11: T$="DES CH 
IFFRES": :DHAUT BTS 

190 LOCATE #2,10,8:PRINT #2,'et" 

200 LOCATE 9,20: T$="DES LETTRES": :DHAUT, 
QT$ 

210 LOCATE 2,25:PAPER O:PEN 1:PRINT"VEU! 

LLEZ PATIENTER" 

220 FOR F=0 T0 13 STEP 0,2:0RIGIN 38,70: 

DRAWR 130-F#10,F#9,F:0RIGIN 801,236: DRAN 

R -(130-F#10),-(F#9) ,F:NEXT 

230 INK 1,0:INK 1,0:INK 2,152 INK 3,3: INK 
4,122 INK 5,9:INK 6,1:FOR F=7 TO 152 INK 

F,F:NENT 

240 RUN'lettre" 

60000 FOR F=&ASEb TO KAb7A:READ A$:A=VAL 
("&"+AS):POKE F,A:NEXT:RETURN 

60010 DATA 01,F3,A5,21,EF,A5,C3,D1,8C,00 
,00,00,00,F8,A5,C3,FE,A5,44,48,41,55,D4, 

00,00,6E,00,DD,66,01,46,23,5E,23,56,EB,7 

E,E5,0€,20,91,6F,26,00,C5,08,03,54,5D,19 
10,FB:11,00,39,19,3E,19,CD,SA,BB,3E FE, 

CD,54,BB,06,04,CD,06,B9,4F,5E,79,CD,0C 

60020 DATA B9,7B,CD,5A,BB,CD,5A,BB,293,10 
,E0,3E,19,00,5A,BB,3E,FF,CD,5A,BB,06,04, 

CD,06,89,4F,5E,79,CD,0C,B9,7B,CD,5A,BB,C 
D,5A,88,23,10,ED,9E,FE,CD,5A,BB,3E,0A,CD 
,5A,BB,3E,08,CD,5A,BB,JE,FF,CD,5A,BB, GE, 

0B,CD,5A,BB,C1,E1,23,10,90,09 

65535 SPEED MRITE 1: SAVE"CHIFFRES/LETTRE 

ç" 


1: CTPITETPEIITI IS 
CPTIIIPTELIIEEE) 

2° + DES CHIFFRES E 
T DES LETTRES # 
3° 
CETTTTPPEIITTE ET 

1: 

5 ‘ par Michel BUZON - pour CPC 464 - se 


SSII IST EETS SE 


7 ‘ double hauteur par Michel GANTIER - 

CPC # 7 - pages 60 & 61 - 

g' 

9 DIM C#(110):DIM V#(90):DIM C(14): SPEED 
INK 10,10 

10 MODE 1:BORDER 13:INK 0,13:60SUB 58910 


© 20 OPT#(L)="1 - seul à "LE COMPTE EST BO 


N'" 

30 OPT#(2)="2 - seul a ‘LE MOT LE PLUS L 

ON6'" 

40 OPT$(3)="3 - seul aux deux jeux alter 

nativesent" 

50 OPT$#(4)="4 - à deux à ‘LE COMPTE EST 

BON'" 

60 OPT$(5)="5 - à deux à ‘LE MOT LE PLUS 
LONG" 

70 OPT$(6)="6 - à deux aux deux jeux alt 

ernativesent* 

80 PEN 1:LOCATE 12,1: T$="VOUS POUVEZ JOU 

ER": !DHAUT,@TS:PEN 2:FOR F=1 TO b:LOCATE 
1,2#34F 2 :DHAUT, @OPTS(F):NEXT:T$="- CHOI 
SISSEZ VOTRE OPTION -" 


© 90 PEN S:LOCATE 7,24: :DHAUT,8TS:60SUB 58 


920:T#=" VOULEZ-VOUS LES INSTRUCTIONS (0/ 
N) ?":FOR 1=10 T0 0 STEP-1:SOUND INT (RND 
(13#7)#1,1#10,10,10:NEXT I:FOR 1=1 TO 10 
O:NEXT I:CALL &BBOJ 

95 K#=UPPERS(INKEYS#):1F K$C"1"OR K#)"6"T 
HEN 95 ELSE OPT=VAL(K$) 

100 INK 3,13:LOCATE 3,24: :DHAUT,ÊTS: : INK 
3,3:S0UND 7,100,10,10:CALL SBBOS 

105 K$=UPPERS(INKEYS):1F K$="O"THEN GOSU 
B 58910:0N OPT GOSUB 58000,58010,58020,5 
8030,58040,58020 ELSE IF K#C)"N°THEN 105 
110 N=1:1F OPTC4 THEN GOSUB 130:J$(2)=J$ 
(1):J08(11=98(1):90$(2)=J8(1):60T0 210 
120 FOR N=1 TO 2:60SUB 130:NEXT:60TD 140 
130 GOSUB 58910:PEN 1+N:LOCATE 3,13:T$=" 
JOUEUR NUMERO"+STRS(NI+", ENTRE TON PREN 
OM. ": DHAUT,@TS$:60SUB 58920 

135 SOUND -4#(N=1 AND OPT)3)-1#(N:2)-2# 
OPT€4),804N,10,10:60SUB 22000: 1F J$(N)=" 
"THEN 135 ELSE RETURN 

140 CLS:60SUB 58910:PEN 2:LOCATE (16-LEN( 
J#(1)))/2,12:T$=J$(1)+" , PILE OU FACE ( 
P/F) 7%: :DHAUT,8T$:60SUB 5B920:ENT 1,1,1 
00,1,1,-100,1:FOR V=0 TO 3:SOUND 2,89,20 
1V,0,1:S0UND 1,71,20,V,0,1:S0UND 4,60,20 
V0, L2NEXT V:CALL &BBOS 

150 K$=UPPERS(INKEYS): IF K$C)"PAND K$) 
"F'THEN 150 

160 RANDOMIZE TIME:S=INT (RND(1)#2)+1:J0$ 
(1)1:94(1):90$(2)=98 (2) 

170 IF 5=2 THEN J0$(112J$(2):J0$(2)=J$8(1 
) 

180 CLS:60SUB 58910:LOCATE (22-LEN(J0$ (1) 
1)/2,12:T#=J0$(1)+" COMMENCERA LE JEU, ": 
PEN 12:DHAUT,8TS:60SUB 5B920:ENT 1,10,-1 
0,1,10,10,1,10,10,1,10,-10,1:F0R 1=26 TO 
0 STEP-1:SOUND INT(RND(1)#7)+1,1#10,20, 
10,,1:INK 0, 1:BORDER I: INK 1,26-I:NEXT:S 
OUND 135,0:5=0 
210 FOR F=1 TO 10:C(F)=F:NEXT F:C(111=25 
:C(12)=50:C(13)=75:C (141100 

230 C$="BHLRSCINRTDKLSVBLNRTCMPRNDLNSTFA 
PSXGLNRTDNGRZFNSVTEHNTS":C$=C$+C$ 

240 FOR Fei TO 110:C$(FI=MID$(CS,F,1):NE 
\TF 
260 V$="EEAIOUETEADE IUEAUEAIUEAUYEAIUEAD 
EIUEADETEAIUE":V$=V$+V$ 


270 FOR F=1 TO 90:V$(F)=AID$(V$,F,1):NEX 
TF 

290 CA$="0123458789#-+/="+CHR$ (13) 

300 6=0:S8C(11=0:SC(2)=0: MODE O0: BORDER 13 
s INK 0,13:60SUB 5700Ù 

310 IF OPT=1 OR OPT=4 THEN FOR PA=1 TO 1 
0:60SUB 400:NEXT PA:60TD 20000 

320 1F OPT=2 OR OPT=S THEN FOR PA=1 TO 1 
0:60SUB 10000:NEXT PA:60TO 20000 

330 IF OPT=3 OR OPT=6 THEN FOR PA=1 TO 35 
:60SUB 400:60SUB 10000: :B0SUB 10000:NEXT 
PA:60SUB 400:60T0 20000 

400 60SUB 55000:J=0:CLS#0:CLSH6: LOCATERÉ 
,2,2:PRINTH6,"LE COMPTE EST BON":CLS#5 
410 MOVE 2,398:DRAMR 637,0,6:DRANR 0,-16 
0,6:DRAWR-639,0,6:DRAMR 0,160,6:MOVE 2,3 
96:DRAWR 637,0,6:DRAMR 0,-156,6: DRANR-b3 
7,0,6:DRAMR 0,156,6 

420 FOR F=0 TO 2:MOVE 252+64#F,392: DRANR 
0,32,6:DRAMR 32,0,6:NEXT:PAPER b:PEN 4: 
FOR F=1 TO S:LOCATE 7+F#2,2:T$="0": : DHAU 
T,@T$:NEXT 5 
430 MOVE 30,318:DRAWR 580,0,8:DRAMR 0,-5 
8,8:DRAWR-580,0,B:DRAMR 0,58,8:MOVE 30,3 
16:DRANR 580,0,8:DRAWR 0,-54,8: DRAWR-580 
,0,8:DRAMR 0,54,8:F0R F=1 TO S:MOVE 32+9 
64F,318:DRAMR 0,-58,8:NEXT:60SUB 7000: 60 
SUB 56000 

500 RANDOMIZE TIME:60SUB 40100:INK 3,13: 

LOCATE 2,24: T#="TAPE ,1,2,3 ou 4,":PAPER 
O:PEN 3::DHAUT, BTS: INK 3,3:FO0R F21 TD 6 
#CALL &BBO3:1F OPT(4 THEN S=1 ELSE GOSUB 
40000 

510 INK 5,5,18-b#(521):SOUND -4#(S=1 AND 
OPT)3)-1#(5=2)-2# (0PT(4),80#5,10,10 

320 K$#=UPPERS(INKEY#):1F K$<"1"OR K#)"4" 

THEN 520 ELSE INK S,18-6#(5=1) 

530 CHIF)2C(INTIRND(1)#14)+1):CH$(F)=STR 

#(CH(F)) 

540 FOR L<1 TO 6:1F L=F THEN 560 

550 IF CH(L)=CH(F) THEN 530 

360 NEXT L 

370 T$=MID$(CHS(F),2):LOCATE S-LEN(T#)+3 

#(F-1)+1#(CH(F)C10),7:PAPER S:PEN b: !DHA 

UT,OTS: MOVE 32+96#(F+1#(F)1)),318:DRANR 

0,-58,8 

580 FOR W=1 TO 200:NEXT M:NEXT F 

600 BOSUB 40100: INK 3,13:LOCATE 3,24:7$= 

"TIRAGE DU COMPTE":PAPER O:PEN 3::DHAUT, 

AT#: INK 3,3 

610 RANDOMIZE TIME: Q=INT(RND(1)#899)+100 

21F 0/100=INT(Q/100)THEN 610 ELSE Q$=STR 

$(@) 

620 FOR F=3 T0 1 STEP -1:FOR N=1 TO 9 

630 IF VAL(MID#(0$,F+1,1))=N-1 THEN 650 

ELSE LOCATE 7+F#2,2:T$=RIGHTS(STRS(N),1) 

PAPER 6:PEN 4: :DHAUT,8T$: SOUND -(F=3)-2 

#(F=2)-44(F31),200#F-N#20,4,10:F0R Iz1 T 

0 BOO:NEXT 

b40 NEXT N 

650 NEXT F 

660 GOSUB 40100:60SUB 8000 

700 1F OPT(4 THEN 5=1:60SUB 72016070 760 

710 FOR F=1 TO 2:60SUB 40000:60SUB 720:F 

OR N=1 TO BOO:NEXT W:NEXT F:60SUB 40000: 

60TO 760 

720 CALL &BBO3:60SUB 40100: INK 3,13:L0CA 

TE 2,24:7$="Entre ton resultat":PAPER 0: 

PEN 3: !DHAUT,@TS$: INK 3,3:N$(5)="":FOR N= 

1 TO 3:INK S,5,18-6#(5=1):SOUND-4#(5=1 À 





ND OPT)3I-1#(522)-2# (0PT(4) ,8045,10, 10 
730 A$IN)="":A$IN)=UPPERS(INKEYS) : IF AS 
N)C"O"OR ASN))"9"THEN 730 ELSE N$(5)=N$ 
(S1+A$ (ND :CP(S)=VAL (N$19)) : A (S)=ABS (0-CP 
(SI: INK 5418-68 (521) 

740 LOCATE 2+15#(S-1),3:PAPER S:PEN S::D 
HAUT,BNS(S):6=6:1F CP(1)=Q OR CP(2)=0 TH 
EN 6:8 

750 NEXT N:RETURN 

760 SS=5+1:1F 892 THEN 55=1 

170 D=8S:1F A(S)(2AISSI THEN D=S . 

780 IF OPT(4 THEN SS=2:D=1:5=1 

800 PAPER, 0:CLSHB:MOVE 0,242: DRANR 639 
,0,8:WINDONE1 ,1,20,12,22:PAPERE1 ,D:PENHI 
BECLSHL:MOVE 0,224: DRAMR 639,0,6:DRANR 
0,-178,6:DRANR-639,0,8:DRANR 0, 176,6: MOV 
E 0,222:DRANR 639,0,62MOVE 0,50: DRANR 63 
9,0,4 

810 BOSUB 40100: INK 3,13:L0CATE S-LEN(JO 
#D))/2,24:78=J08(D)+" ,ton calcul ":PAPER 
O:PEN 3: !DHAUT,T#: INK 3,3: SOUND-4# (D=1 
AND OPT>3)-1#(D=2)-28 (DPT(4) ,804D,10,10 
ICALL &BBOS 

820 BAGNE=0:PERDU=0:L 22: 1:0 

830 N#="":N=0:7=2#1:1F 15 THEN 4000 

840 N=N+1 

850 A$="":A$=UPPERS (INKEYS) 

860 FOR F=1 TO 18 

870 IF A$=MIDS(CAS,F,1)THEN 900 

880 NEXT F 

890 GOTO 850 

900 IF AS=CHRS(13)AND N$="*THEN 1=0:6070 
830 

910 IF AS=CHRSC13)ANDINSC)" AND LENNS)C 

S) THEN 4000 

920 IF A$=CHR$(13)THEN 1010:REM VERIFICA 

TION 

930 IF A$="#"THEN T=N 

940 IF A$="-"THEN T=N 

950 IF A$="+" THEN T=N 

960 IF A$="/"THEN T=N 

970 IF A$="=" THEN U=N 

980 N#=N#+A$1IF LENINS)>13 THEN 4000 

990 LOCATERI ,2,L:PRINTEI,NS 

1000 ENV 7,1,4,0,4,-1,1:SOUND -4#(D=1 AN 

D OPT)3)-1#(D=2)-2#10PT4),0,8,0,7,0,10: 

60TO 840 

1010 GOSUB 2000:1F PERDU THEN 4000 ELSE 
IF BAGNE THEN 5000 

1020 SOUND 7,80#D,8,2:L=L+2:6070 830 

2000 1F T€2 OR T5 THEN PERDU=1: RETURN 

2010 IF UC4 OR U9 THEN PERDU=1: RETURN 

2020 PR=VAL(LEFTS(N$,T-1)):60SUB 3000: IF 
PERDU THEN RETURN 

2030 DE=VAL(MIDS (NS, T+1 ,U- (7413) ) : 60SUB 

3100:1F PERDU THEN RETURN 

2040 TR=VAL (RIGHTS (NS, LEN NS) -U) ) : G0SUB 

3200:1F PERDU THEN RETURN 

2050 RETURN 

3000 FOR W=1 T0 & 

3010 1F PR=0 THEN PERDU=1:RETURN 

3020 IF PR=CH(W) THEN CHUW)=0:RETURN 

3030 1F PR=ST(N) THEN ST(W)=0:RETURN 

3040 NEXT N 

3050 PERDU=1 : RETURN 

3100 FOR W=1 TO 6 

3110 IF DE=0 THEN PERDU=1:RETURN 

3120 IF DE=CH(W)THEN CH(N)=0:RETURN 

3130 1F DE=STIN)THEN ST(N)=0:RETURN 

3140 NEXT N 


l 
2 
ÿ 
4 


N 
h 
M 
N 


3150 PERDU=1:RETURN 

3200 IF M=1 THEN ST(Z)=PR#DE 

3210.1F M=2 THEN ST(Z)=PR-DE 

3220 IF M=3 THEN ST(2)=PR#DE 

3230 1F M=4 THEN ST(Z)=PR/DE 

3240 IF TR=ST(Z)THEN 3260 

3250 PERDU=1:RETURN 

3260 PAPER DiPEN 10:LOCATE 16,11+L:PRINT 

“-{K-" 

3270 IF CP(DI2TR THEN GAGNE=1:RETURN 

3280 RETURN 

4000 GOSUB 40100:LOCATE 2,24:T$="-ERR 
EUR !-":INK 3,13:PEN 3: IDHAUT,ATS: I 

NK 3,6,3:1F OPT)3 THEN D=D+1:1F D)2 THEN 
D=1 

4010 ENV 1,1,8,12ENT 1,1,100,0:FO0R F=0 T 

0 26:SOUND INTIRND(1)#7)+1,F#100,20,0,1, 
1:SOUND INTIRND(1)#7)+1,F#110,20,0,1,1:S 

OUND INT(RND(1)#7)+1,F#120,20,0,1,1: BORD 

ER F:INK O,F:NEXT: BORDER 13: INK 0,13:F0R 
F=1 TO 2000:NEXT 

4020 IF OPT)3 THEN 5000 

4030 GOSUB 40100:LOCATE 1,24: T$="Tu ne a 
arques pas"+STR$(6):INK 3,13:PEN 3: : DHAU 
T,@T$: INK 3,3:FOR F=13 T0 0 STEP-1:SOUND 
2,0,1,F,1,1,F:NEXT:FOR F=1 TO 4000:NEXT 
:60SUB 57000:RETURN 

5000 IF OPT(4 THEN T$=" Tu sarques"ELSE 
T$=J0$(D)+" sarque" 

5010 GOSUB 40100:LOCATE 9-LEN(T$)/2,2 
$=T$+STR#(G): INK 3,13:PEN 3: :DHAUT,8T 

NK 3,32ENV 1,1,6,0,6,-1,4,24,0,1:ENT 
0,-1,1:FO0R R=6 TO 1 STEP-1:1F J THEN 
:SC(F)=SC(F)+1:60SUB 7070 

5020 SOUND -4#(D=1 AND OPT)3)-1#(D=2) -2# 
(OPT(4),R#60,60,0,1,12F0R 1=1 TO SOO:NEX 
T I: SOUND 135,0 

5030 NEXT R:1F J THEN 5050 

5040 SC(D)=5C (D)+6 

5050 FOR F=1 TO 2000:NEXT:60SUB 57000:RE 
TURN 

7000 G6OSUB 57000:1F OPTC4 THEN F=1:60SUB 
7020:RETURN 

7010 FOR F=1 T0 2:60SUB 7020:NEXT:RETURN 
7020 CLS#F:MOVE 1-160#(0PT(4)-320#(F-1) # 
(OPT)3),113:DRAMR 318,0 ,4:DRANR 0,-64,4: 
DRAWR-318,0,4:DRAWR 0,64,4 

7030 MOVE 1-160#(0PT(4)-320#(F-1)#(0PT)3 
),11L:DRAMR 318,0,4:DRAWR 0,-60,4: DRAWR- 
318,0,4:DRAWR 0,60,4 

7040 PAPER F:PEN 4:LOCATE 2-5#(DPT(4)-10 
#(F-1)#(0PT)3)+4-(LEN(J0$(F)))\2,20: :DHA 
UT, 890$ (F) 

7050 CLS#F+2: MOVE 94-1604 (0PT4)-320# (F- 
1)#(0PT)3),177:DRAMR 128,0,4:DRAWR 0,-b4 
1 4:DRAMR-128,0,4:DRAWR 0,64,4 

7060 MOVE 94-160#(0PT(4)-320#(F-1)#(OPT > 
31,175:DRAMR 128,0,4:DRANR 0,-60,4:DRAWR 
-128,0,4:DRAWR 0,60,4 

7070 PAPER F:PEN 4:LOCATE 9-5#(0PT(4)-10 
#(F-1)#(0PT)3),16:1F SC(F))9 THEN T$=RIG 
HT$(STRS(SC(F)),2)ELSE T$="0"+RIGHTS(STR 
$(SC(F)),1) 

7080 :DHAUT,@T$:RETURN 

8000 INK 10,13:INK 11,13:60SUB 40100: PAP 
ER 10:LOCATE 1,24:PRINT"  ":PAPER 11:L0 
CATE 4,24:PRINT SPACES(17):CLe21: INK 10, 
b:INK 11,20:ENV 1,2,1,1,64,-1,0 

8010 FOR F=1 TO 4 

8020 RESTORE 59100 


8030 FOR Le1 TO 45 
8040 READ D,NI,N2,N4:1F INKEYS=CHRS (13) 
OR INKEY$=" " THEN SOUND 135,0:RETURN 
8050 SOUND 1,N2,D,1 
8060 SOUND 2,N1,D,2,1 
8070 SOUND 4,N4,D,1 
8080 PAPER O:LOCATE CL,24:PRINT" ":CL2CL 
-19/(45#4):IF CLC4 THEN INK 10,4,6 
8090 NEXT L,F:INK 10,8 
8100 FOR F=1 TO 2000:NEXT:G60SUB 40100:RE 
TURN 
10000 G0SUB 55000:J=1:60SUB 37000:CLS5#0 
10010 CLS#6:FOR F=11 TO 13:LOCATE 20,F:P 
10000 GOSUB 55000:J=1:60SUB 57000:CLS40 
10010 CLS#6:FOR F=11 TO 13:LOCATE 20,F:P 
APER O:PRINT" ":NEXT:LOCATE#6, 2,2: PRINTH 
6,"LE MOT LE + LONG":CL5#7 
10020 FOR F=0 T0 1:Y=378-F#64:C0=7-F: MOV 
E 14,Y:DRANR 576,0,C0:DRANR 0,-48,C0:DRA 
WR-576,0,C0:DRANR 0,48,CO:MOVE 14,Y-2:DR 
ANR 576,0,C0:DRAMR 0,-44,C0:DRAWR-576,0, 
CO:DRAMR 0,44,C0:FOR R=1 TO B:MOVE 14+64 
#R,V:DRAMR 0,-48,CO:NEXT R,F:60SUB 7000: 
GOSUB 56000 
10100 GOSUB 40100: INK 3,13:LOCATE 1,24:T 
$="Consonne ou Voyelle":PAPER O:PEN 3::D 
HAUT TS: INK 3,3:FO0R F=1 TO 9:RANDOMIZE 
TIME:CALL &BBO3:IF OPT)3 THEN 6OSUB 4000 
0 ELSE 5=1 
10110 INK 5,5,18-6#(S=1): SOUND -4#(5=1 À 
ND OPT)J)-1#(S=2)-2#(0PT(4),80#5,10,10 
10120 K$=UPPERSUINKEYS):1F K$C)"C"AND K$ 
O"V®THEN 10120 ELSE INK S,18-6#(5=1) 
10130 IF K$="C" THEN 10170 
10140 H=INT(RND(1)#90)+#1 
10150 K$=V$(H):V$(H)="0":1F K$="0" THEN 
10140 
10160 GOTO 10190 
10170 H=INTIRND(1)#110)+1 
10180 K$=C$(H):C$(H)="0":1F K$="0" THEN 
10170 
10190 PAPER O:PEN 6:LOCATE 2+2#(F-1),31: 
DHAUT,8K#:L$(F)=K$ 
10200 FOR W=1 TO 400:NEXT N:NEXT F11F OP 
T3 THEN GOSUB 40000 
10210 GOSUB 8000 
10300 IF OPT(4 THEN S=1:60SUB 10320:60T0 
10360 
10310 FOR F=1 TO 2160SUB 40000:60SUB 103 
20:FOR W=1 TO 4O0:NEXT M:NEXT F:60SUB 40 
000:6070 10360 
10320 CALL &BBO3:60SUB 40100:INK 3,13:L0 
CATE 1,24:T$="NOMBRE DE LETTRES ?*:PAPER 
O:PEN 3: DHAUT,@TS: INK 3,3: INK 5,5,18-b 
#(5=1):SOUND-4#(S=1 AND OPT>3)-1#(5=2)-2 
#(0PT(4),80#6,10,10 
10330 AS$=UPPERS(INKEYS):1F A$C"2"OR A)" 
9"THEN 10330 ELSE NLIS)=VAL(A$):1F DPT(4 
THEN RETURN 
10340 INK S,18-b#(S=1):LOCATE 2-17#(5=2) 
,16:PAPER S:PEN 4: 2DHAUT,8A$: MOVE 32+1#( 
NL(S)=4)-544#(522) ,128:DRANR 0,32,S:DRAN 
R 31+L#(NL(5)=4),0,S:MOVE 32+1#(NL(S)=4) 
-344#(522),182:DRAMR 31+1#(NL(5)=4),0,S 
10350 RETURN 
10360 55=5+1:1F 5532 THEN SS=1 
10370 D=SS:1F NL(S)>=NL(SS)THEN D=5 
10380 IF OPT(4 THEN S=1:55=2:D=1 
10400 CALL &BBO3:6=NL (D) :60SUB 40100: INK 





3,13LOCATE 1,24: T8="ENTRE TES" 4STRS (NL 
(D1+" LETTRES":PEN 3: !DHAUT,8T£: INK 3,3 
LINK D,5,18-6#(D=1) 
10410 FOR F=1 TO NL(D):SOUND -4#(D=1 AND 
OPT3)-1#(D=2) -2# (0PTE4) ,802D,10,10 
10420 AS=UPPERS(INKEYS): IF ASC'A"OR A$)" 
L'THEN 10420 
10430 LOCATE 2+2#(F-1),7:PEN 7: :DHAUT,@A 
$ 
10440 FOR L=1 TO 9 
10450 IF A$=L$L)THEN L$(L)=""16070 1048 
0 
10460 NEXTL 
10470 INK D,18-6#(D=1):60T0 4000 
10480 NEXT F2 INK D,18-6#(D=1) 
10500 1F OPTX4 THEN S=1:D=1:00=1:ELSE DD 
=D+1:1F DD)2 THEN DD=1 
10510 CALL &BBO3:60SUB 40100: INK 3,13:L0 
CATE 2,24:T#="M0T VALIDE (0/N) 7*:PEN 3: 
LDHAUT,@T#: INK 3,3: INK D0,5,18-6#(DD=1): 
SOUND-4+ (DD=1 AND OPT)3)-1#(DD=2)-2# (0PT 
(41,80200,10,10 
10520 AS=UPPERS(INKEYS): IF A$="N"THEN IN 
K DD,18-8#(D0=1):60T0 4000 
10530 IF A$="0"THEN INK DD,18-6+(DD=1):6 
OTO 5000 
10540 GOTO 10520 
20000 60SUB 55000:60SUB 57000:CL540:50SU 
B 7000:PAPER O:PEN 3:LOCATE 2,3: T#="UNE 
AUTRE PARTIE 7": !DHAUT,@TS:LOCATE 8,9:78 
=" (Oui. Non)": !DHAUT,8T#:60SUB 56000: 605 
UB 59000 
20010 IF K#="O"THEN 20100 ELSE IF K&C)'N 
*THEN K#=UPPERS(INKEY#):B0TO 20010 
20020 GOSUB 21000:T$="ALORS, AU REVOIR ? 
*{LOCATE 2,3: !DHAUT,OTS: INK 3,3:S0UND 7, 
200,20,10:CALL &BBO3 
20030 KS=UPPERS (INKEYS) : IF K$="O"THEN CA 
LL 0 ELSE IF K#="N"THEN 20100 ELSE 20030 
20100 GOSUB 21000: LOCATE 4,3:T$="MEME .0 
PTION 7": !DHAUT, TS: INK 3,3:60SUB 59000 
20110 IF K#="0" THEN GOSUB 40000:6070 21 
0 
20120 IF K#="N" THEN RUN 
20130 K#=UPPERS(INKEY#):G0T0 20110 
21000 INK 3,13:LOCATE 1,3:PRINT SPACES(3 
9):RETURN 
22000 K=0:J#(N)="":LOCATE 12,17:PRINT"? 
*:CALL 4BBO3 
22010 KS=UPPERS(INKEYS) : IF K#=""THEN 220 
10 
22020 IF K#=CHRS(13I THEN RETURN 
22030 IF ASC(KSI=127 THEN K=K+1#(K)0)21F 
K=0 THEN J$(N)="":60T0 22060:ELSE J$IN) 
SLEFTS (JS UN) ,LEN(JS (ND )+1#1K30)):60T0 22 
060 
22040 K=K#1:1F KB THEN K=8:6070 22010 
22050 J$(NI=J$INI#K# 
22080 LOCATE 14,17:PRINT J$(NI+" "6070 
22010 
40000 525+1:1F 32 THEN S*1:RETURN:ELSE 
RETURN 
40100 INK 3,13:LOCATE 1,24:PAPER O:PRINT 
SPACES (39) : INK 3,3:LOCATE 1, 12RETURN 
35000 FOR F=1 TO 15:INK F,13:NEXT:RETURN 
56000 INK 1,24: INK 2,18: INK 3,3: INK 4,0: 
INK 5,52INK 6,28: INK 7,B2INK B,12 INK 9,1 
BE INK 10,8:INK 11,202 INK 12,22: INK 13,12 
LINK 14,8: INK 15,15:RETURN 


57000 MINDON40,1,20, 1,25: PAPER#O, 0: PENO 
3 
4 

57010 G1=1:D1=10:H1=19:B1=22:PAPER#1 ,1:P 

EN#1,4 

57020 62=11:D2=20:H2=19:B2=22: PAPER#2,2: 

PEN#2,4 . 

57030 63=4:D3=7:H3=15:B3=18:PAPERSS,1:PE 

N 43,4 

57040 64:14:D4=17:H4=15:B4=18: PAPERS ,2: 

PEN#4,4 

57050 NINDOWES,1,20,1,10:PAPER#S,S:PENES 
3 ; 

U 

57060 MINDON#6,1,20,11,13:PAPER#E, 15:PEN 

#6,6 

57070 MINDON#7,1,20,1,10:PAPER87 ,0:PEN#7 
3 
U 

57080 IF OPT(4 THEN 61=6:D1=15:62:61:02= 

D1:PAPER#2,1:63=9:D3=12:64=63:D4=D3:PAPE 

RH, 1 

57090 WINDOW#1,61,01,H1,B1:WINDON#2,62,D 

2,H2,B2:MINDOWE3,63,03,H3,B3:NINDON#4,64 
1D4,H4,B4 

57100 RETURN 

58000 60SUB 58900:60SUB 58100:60SUB 5900 

O0:RETURN 

58010 60SUB 58900:60SUB 58500:60SUB 5900 

O:RETURN 

58020: 60SUB 58930:60SUB 58100:60SUB 5900 
0:60SUB 58910:60SUB 58930:60SUB 58500:60 
SUB 59000:RETURN 

58030 6OSUB 58940:60SUB 38100:60SUB 5900 

0:RETURN 

58040 GOSUB 58940:60SUB 58500:60SUB 5900 

0:RETURN 

58100 T$="# LE COMPTE EST BON #"3PEN 3:L 

OCATE 9,1: :DHAUT ,@T$:LOCATE 11,3:PRINT S 
TRIN6#(17,CHR$(216)) 

58110 PEN 2:LOCATE 1,11:PRINT"Quand CPC 
vous le desande, tapez les trois chif 
fres de votre cospte." 

58120 LOCATE 1,14:PRINT"L'entree des res 
ultats se fera en tapanttous les caracte 
res d'une operations (ex:100#4=400) puis 
en appuyant sur ENTER pour chaque oper 
ation." 

58130 GOSUB 58960:60SUB 58920:RETURN 

58500 T#="# LE MOT LE PLUS LONG #":PEN 3 
sLOCATE 8,1: :DHAUT,@TS$:LOCATE 10,3:PRINT 
STRING$(19,CHR$# (216) ) 

58510 PEN 2:LOCATE 1,9:PRINT"C=consonne 
: Vsvoyelle":LOCATE 1,11:PRINT"Quand CPC 
vous le desande, tapez le nosbre de 
lettres du aot le plus long que vous 
avez trouve." 

58520 LOCATE 1,15:PRINT"Puis, au signal, 
entrez une à une les lettres cosposan 
t ce sot.” 

58530 LOCATE 1,18:PRINT" Veuillez vous as 
surer de la validite de ce aot en consul 
tant le dictionnaire." 

58540 G60SUB 58960:60SUB 58920:RETURN 
58900 PEN 1:LOCATE 1,6:PRINT"Vous allez 
jouer dix fois de suite selonla regle su 
ivante :":RETURN 

58910 INK 1,13:INK 2,13:INK 3,13:CLS:RET 
URN 

58920 INK 1,0:INK 2,1: INK 3,3:RETURN 
58930 PEN 1:LOCATE 1,6:PRINT" Vous allez 
jouer alternativesent aux "CHIFFRES" 


et aux "LETTRES", ":RETURN 
58940 IF OPT=4 THEN OPT$=" "CHIFFRES". "EL 
SE OPT$=" "LETTRES," 
58950 PEN 1:LOCATE 1,6:PRINT" Vous allez 
jouer alternativesent aux "+0PT$:RETU 
RN 

58960 T$="ATTENTION AUX ERREURS DE FRAPP 
ES !'1":PEN S:LOCATE 2,212 !DHAUT,BT$:PEN 
1:LOCATE 4,25:PRINT"TAPEZ UNE TOUCHE PO 
UR CONTINUER, ":RETURN 

59000 CALL &BBOS:RESTORE 59100:ENV 2,1,8 
1127,-1,1b 

59010 ENV 1,1,6,1,127,-1,32:ENT 1,1,8,1, 
1,-8,1,1,-8,1,1,8,1 

59020 FOR F=1 T0 45 

59030 K$=UPPERS(INKEYS):1F K$C)""THEN SD 
UND 135,0:RETURN 

39040 READ D,NI,N2,N4 

59050 SOUND 1,N2,D,15,1,1 

39060 SOUND 2,N1,D,15,2 

59070 SOUND 4,N4,D,15,1,1 

59080 NEXT F 

59090 RESTORE 59100:6070 59020 

59100 DATA 24,159,159,159 

39110 DATA 36,119,159,190 

59120 DATA 12,159,190,239 

59130 DATA 24,119,159,190 

59140 DATA 48,095,119,159 

59150 DATA 48,119,159,190 

59160 DATA 24,142,142,190 

39170 DATA 48,119,142,179 

59180 DATA 24,119,142,179 

59190 DATA 48,119,159,190 

59200 DATA 24,000,478,956 

59210 DATA 24,000,000,000 

59220 DATA 24,159,159,159 

939230 DATA 36,119,159,190 

59240 DATA 12,159,190,239 

39250 DATA 24,119,159,190 

59260 DATA 48,095,119,159 

59270 DATA 48,119,159,190 

59280 DATA 24,095,119,159 

59290 DATA 48,080,106,127 

59300 DATA 24,089,119,142 

59310 DATA 48,080,106,127 

59320 DATA 24,000,319,638 

59330 DATA 24,000,000,000 

59340 DATA 24,080,106,127 

59350 DATA 48,071,089,119 

59360 DATA 24,071,089,119 

59370 DATA 48,080,095,119 

59380 DATA 48,095,119,139 

39390 DATA 24,119,159,190 

59400 DATA 48,095,127,150 

59410 DATA 24,106,150,190 

59420 DATA 72,119,142,284 

59430 DATA 24,142,142,284 

59440 DATA 24,127,127,190 

59450 DATA 48,119,142,179 

59460 DATA 24,119,142,179 

59470 DATA 48,119,159,190 

59480 DATA 24,095,119,159 

59490 DATA 24,142,142,239 

59500 DATA 24,127,127,190 

59510 DATA 48,119,142,179 

59520 DATA 24,119,179,284 

59530 DATA 48,119,190,239. 

59540 DATA 48,000,000,000 

65535 SPEED NRITE 1:SAVE"CHLEÏ" 














McSTRAD est un utilitaire qui 
permet le transfert d'une par- 


tie de l'écran vers une zone 
mémoire, et l'opération inver- 
se: la reconstitution d'une 


partie de l'écran à partir des 
données sauvegardées au 
préalable dans la mémoire de 
l'ordinateur. 

Ces transferts, au sens pro- 


pre du terme, s'effectuent 
grâce à deux commandes 
RSX. 

La première, [SWIN (pour Store 


WINdow), sauvegarde une zone dé- 
limitée de l'écran dans la mémoire. 
Sa syntaxe est |SWIN, x, y, Ix, ly 

Les deux paramètres x (avec 1 <=x 
= > 80) et y (tel que 1 < = y = > 25) 
constituent ici l'origine de la partie à 
transférer. Les deux arguments sui- 
vants Ix et ly définissent la taille de 
la fenêtre à sauvegarder (Ix : 
bre de colonnes : ly : nombre de li- 
gnes). Toutefois, il faut prendre gar- 


de au mode dans lequel ce trans- 


fert s'effectue: en effet, si en 
mode 2, le nombre de caractères 
d'une ligne à transférer s'écrit Ix, en 
mode 1 pour sauver x caractères 
sur une ligne, il faut que Ix = x* 2 et 
en mode 0 pour le même nombre x 
de caractères Ix = x* 4 

La deuxième commande, RWIN 
(pour Recall WINdow), effectue le 


nom-. 


Mark HOEBEKE 
BE 


transfert des données stockées en 
mémoire par [SWIN vers l'écran 
pour reconstituer la partie sauve- 
gardée. Cette commande ne néces- 
site aucun argument particulier (elle 
s'écrit donc |RWIN) car elle emploie 
ceux utilisés auparavant avec [SWIN 
(il est donc déconseillé d'essayer 
de faire IRWIN avant [SWIN) 

Le fonctionnement de la routine 
est extrêmement simple : elle se 
contente de décomposer chaque 
caractère à sauvegarder en huit oc- 
tets (en mode 2 du moins) : un oc- 
tet pour chaque ligne qui compose 
un caractère puis d'effectuer l'opé- 
ration inverse pour le réafficher à l'é- 
cran. Ce qui permet d'ouvrir et de 
fermer très facilement une fenêtre à 
l'écran (comme sur le Mcintosh 


Une ligne téléphonique est à votre disposition, vous met- 
tant en contact direct avec la rédaction. Ceci est un ser- 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 
MERCREDI de 9 h à 12 h et de 14h à 17 h. 


VENDREDI de 9 h à 12 h seulement. 
Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 


Le numéro : 99.52.98. 117. 


d'APPLE par exemple). 

Le programme de démonstration 
montre l'une des applications pos- 
sibles de cette routine : 

— lignes 230 à 590: implantation 
de la routine en langage machine à 
l'adresse &A000 (attention, sans 
modification cette routine n'est pas 
relogeable). Le POKE &A02F, &80 
en ligne 240 indique à la routine l'a- 
dresse de la zone mémoire où com- 
mence le stockage des données 
(dans ce cas : &8000: d'où le ME- 
MORY &7FFF). Cette adresse peut 
être modifiée à volonté, il faut l'im- 
planter en &AO2E (partie basse) et 
&A02F (partie haute). Plus l'espace 
réservé sera grand (donc l'adresse 
de début plus petite) et plus le nom- 
bre de données sauvegardées se- 
ra important. 

— ligne 630 : redéfinition des direc- 
tions du joystick afin de les faire agir 
de la même façon que les flèches 
de curseur (la touche FIRE faisant 
office de COPY pour la validation 
du choix). 

— ligne 710 : ti$ est la variable con- 
tenant le titre de la fenêtre à affi- 
cher. CH contient le nombre de 
choix dans la fenêtre. H est la posi- 
tion horizontale de cette fenêtre 
(colonne) et V la position verticale 
(ligne). Le RESTORE 1100 sert à 
réinitialiser le pointeur de DATA de 
façon à ce que les données sui- 
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vantes qui seront lues soient les 
choix contenus dans la fenêtre. Au 
retour du GOSUB, la variable CH 
contient le numéro du choix sélec- 
tionné. 

— ligne 720: branchement  sui- 
vant le choix effectué 

— lignes 730 à 920 : exécution de 
sous-programmes suite aux bran- 
chements (rien n'interdit d'y placer 
à nouveau des fenêtres). 

— lignes 940 à 1060 : affichage de 
la fenêtre et sélection du choix (la 
taille de la fenêtre est calculée auto- 
matiquement à partir du nombre de 
données et de leurtaille). 

— ligne 1100: données concer- 
nant les fenêtres à afficher (cf ligne 
710). 

Maintenant que tout est clair (enfin, 
je l'espère), il ne vous reste plus 
qu'à intégrer ce sous-programme 
dans vos propres réalisations afin 
de les rendre plus esthétiques. 

Alors, bonne chance... 


Le 
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110 ‘##+ Nc STRAD 

120 ‘### pour AMSTRAD CPC 464 
130 ‘##+ (c) HOEBEKE MARK 
140 ‘#4 et 





150 ‘### CPC #4 
160 ‘##4 JUIN 1986 #44 
PORT TIITITI IEEE ETES ZTE TS 
180 ” 

190 ‘ 

200 ‘ 

210 ‘### IMPLANTATION DE LA ROUTINE ASSE 
MBLEUR +++ 

220 

230 AD=4AOO0:MEMORY &7FFF 

240 READ A#:1F A$="FIN" THEN POKE &AO2F, 
&B0:CALL &A000:60T0 630 ELSE POKE AD, VA 
L("4"+A$):AD=AD+1:60TO 240 

250 DATA 1,9,A0,21,1A,A0,C3,D1,BC,11 
260 DATA A0,C3,32,A0,03,E9,A0,53,57,49 
270 DATA CE,52,57,49,CE,0,0,0,9,A0 

280 DATA 45,33,88,41,D,80,28,4C,49,47 
290 DATA 29,20,41,D,9F,D,0,23,22,27 

300 DATA FE,4,00,0D,66,7,DD,6E,6,E5 

310 DATA DD,66,5,DD,6E,4,E5,DD,66,3 

320 DATA DD,6E,2,E5,DD,66,1,DD,6E,0 

330 DATA 22,24,40,E1,22,22,A0,E1,22,20 
340 DATA A0,E1,22,1E,A0,21,0,C0,AF,32 
350 DATA 30,40,11,50,0,3A,30,A0,3C,32 
360 DATA 30,40,4F,3A,20,A0,B9,28,3,19 
370 DATA 18,EF,EB,2A,1E,A0,19,2B,22,26 
380 DATA A0,2A,2E,A0,22,2A,A0,2A,26,A0 
390 DATA 22,28,A0,22,2C,A0,AF,32,30,A0 
400 DATA 32,31,A0,CD,B7,A0,3A,31,A0,3C 
410 DATA 92,31,A0,4F,3E,8,B9,C8,2A,28 
420 DATA A0,11,0,8,19,22,2C,40,22,28 
430 DATA A0,18,E2,2A,2A,A0,E5,2A,22,A0 
440 DATA ES,C1,D1,2A,2C,A0,ED,B0,EB,22 
450 DATA 2A,A0,3A,30,A0,30,32,30,A0,4F 
460 DATA 3A,24,A0,B9,28,C,2A,2C,A0,11 
470 DATA 50,0,19,22,2C,A0,18,D3,AF,32 
480 DATA 30,40,C9,2A,2E,A0,22,2A,A0,2A 
490 DATA 26,A0,22,28,A0,22,2C,A0,AF,32 
300 DATA 31,A0,32,30,A0,CD,1D,A1,3A,31 
510 DATA A0,30,32,31,A0,4F,3E,8,B9,C8 
520 DATA 2A,28,A0,11,0,8,19,22,28,A0 
330 DATA 22,2C,A0,18,E2,2A,2C,A0,E3,2À 
540 DATA 22,A0,E3,C1,D1,2A,2A,A0,ED,B0 
550 DATA 22,2A,A0,3A,30,A0,3C,32,30,A0 
560 DATA 4F,3A,24,A0,B9,28,D,11,50,0 
570 DATA 2A,2C,A0,19,22,2C,A0,C3,1D,AI 
580 DATA AF,32,30,40,09,0,0,0,0,0 

390 DATA FIN 

600 ” 

b10 ‘##s TRANSFORMATION DES DIRECTIONS J 
OYSTICK EN TOUCHES CURSEUR ### 

620 ‘ 

630 KEY DEF 72,1,240,244:KEY DEF 73,1,24 
1,245:KEY DEF 74,1,242,246:KEY DEF 75,1, 
243,247:KEY DEF 76,1,13,13 

640 

650 ‘### INITIALISATION ECRAN ### 

660 ‘ 

670 MODE 2:INK 0,0:INK 1,26:BORDER 11PAP 
ER 1:PEN 0:CLS:CLG 1 

680 * 

690 ‘### PREPARATION FENETRE #44 

700 ” 

710 ti$="EXEMPLE DE FENETRES":CH=41H=28e 
VS10:RESTORE 1100:60SUB 960 

720 ON CH 60SUB 740,790,840,770:LOCATE { 
END 

730 

740 ‘#44 Traitesent de la presiere optio 
n ++ 


790 ‘oscesuresenses scies rocanceuece cs 
760 ".,,,,,,,S0US PROGRAMME 1,,.,,,.,,,, 
MO eines sannnnninieentaustre 
780 RETURN 
790 ‘### Traitesent de la deuxiese optio 
n #4 
B00 incssesssensesetennonerncnane 
810 ",.,.,,,,50US PROGRAMME 2,..,,,.,,, 
B20 éeuimisisercsetestecieesesoursese 
830 RETURN 
840 ‘### Traitesent de la troisiese opti 
on ### 
ES rééorsscsnanneerenseceniicesios 
860 ‘...,.,,,S0US PROGRAMME 3,,,.,,,,,, 
CLOS 
880 ‘### Traitesent de la quatriese opti 
on ##4 
890 is sssessssscasccrssacnecsseucss ose 
900 ‘ssssss., SOUS PROGRAMME 4,.,,,,..,, 
DO ‘ossonssoccsossncoosssoscosccconsse 
920 RETURN 
930 ‘ 
940 ‘#44 SOUS PROGRAMME DE TRAITEMENT DE 
FENETRES ### 
950 ‘ 
960 LOCATE 1,1:PRINT:2#ch3 FOR I=1 TO CH: 
READ CH$(I):NEXT 
970 TAGOFF:LO=LEN(TI$):MA=CH:FOR XX=1 TO 
CH:1F LEN(CH$(XX)))LO THEN LO=LEN(CHS(X 
11) 
980 NEXT AX:LO=LO+4:BA=V+CH+2:WINDON H,H 
+L0+1,V,BA+1::SNIN,H,V,L0+2,CH+4: CLS: NIN 
DON 1,80,1,25 
990 lozlo+iiXeH#8-4-1:Y2398-(V#16-12)-91 
LA=LO#8-8+1:LY2-((CH+2)#16+6)-5:DX=(H-1+ 
(LO-LEN(TI$))/2)#8:DY=398-(V#16)-61X1zH# 
8-1:Y1=398-(V#16-8)-9:L1=L0#8-16+1:L23-2 
0 
1000 PLOT X,Y,0:DRAW X+LX,V:DRAW X+LX,Y+ 
LY:DRAN X,Y+LY:DRAN X,Y: MOVE DX,DY:TAG:P 
RINT TI$3:PLOT X1,Y1,0:DRAN XL4L1,YLDRÉ 
W X1+L1,Y1+L2:DRAN K1,Y1+L2:DRAN K1,Y1 
1010 X2H#B-11Y2398-((V+2)#16-16)-9:LX2L0 
#8-16+1:LYs-16#ch-b-31 1m H88+41Y18394-(( 
V41)416)-9:DXsa-1:DYec+21L12K1#8-14+11L2 
e-2410-4:D1=H#8+4:D22394-((v+ch)#16) 
1020 TAGOFF:PLOT x,y:DRAW x+1x,ysDRAN x+ 
1x,y+ly: DRAM x,y+1y:DRAN x,y:FOR i=1 TO 
ChiLOCATE h+3,v+i+2:PRINT ch$li);:NEXT:P 
LOT dx,dy:DRAN dx+11,dy: DRAM dx+11,dy+12 
DRAM dx,dy+12:DRAN dx ,dy:ch=1:a$s""1NHI 
LE a$C)CHR#(13) AND a$()CHR$ (458) 
1030 PAPER O:PEN 1:LOCATE h+i,v+ch+2:PRI 
NT" "sch#(ch);SPACE#(10-LEN(ch$ (ch}}-4) 
1040 B$=°":WHILE B$C)CHR#(240) AND b$C)C 
HR$(241) AND b$C)CHR#(13):B$=INKEY$: NEND 
1A$=BS$: PAPER 11PEN O1LOCATE h+1,v+ch+2:P 
RINT® “ch#ch)ÿSPACE#(10-LEN(ch$(ch))- 
h 
1050 ch=ch-(a$=CHR#(240))#(ch)1)+(a$=CHR 
$(241))#(ch<aa) : NEND 
1060 PAPER 1:PEN O:LOCATE h+2,v+ch+2:PRI 
NT CHR$#(246)ch$ (ch) ;CHR$ (247) & RWIN:RET 
URN 
1070 ‘ 
1080 ‘##+ DONNEES CONTENUES DANS LES FEN 
ETRES ### 
1090 ” 
1100 DATA PREMIERE OPTION, DEUXIEME OPTIO 
N,TROISIEME OPTION QUATRIEME OPTION 











eux 
LA MOMIE INVISIBLE 


Claude LE MOULLEC 











Malheureux ! Vous avez osé 
profaner la pyramide du pha- 
raon Fégafatéfes. Il est trop 
tard pour faire marche ar- 
rière: vous devez ramasser 
les diamants éparpillés dans 
le tombeau sans vous faire 
toucher par l'âme Invisible du 
défunt pharaon. 


Si vous trouvez les six tableaux trop 
faciles, vous avez la possibilité d'en 
créer d'autres à la manière de Lode 
Runner. Les explications sont in- 
cluses dans le jeu. 


10 REM nssssssnsessunesnetestetenentt 
20 REM : ! 

30 REN : CLAUDE LE MOULLEC ! 

40 REN : ; 

50 REM : 83 RUE JOLIOT CURIE 

60 REN : 

70 REM : 22420 PLOUARET 

80 REN : 

90 REN : TEL 96 38 94 24 

92 REM : 

94 REM : CHARGEUR MOMIE 

100 REM : : 
110 REM ssssssssseseessueesensssuts 
115 REM 

120 MODE 1:BORDER 15:INK 0,1:INK 1,20:IN 
K 2,0:INK 3,24:PAPER O:CLS:WINDON #1,1,4 
0,15,24:PAPER #1,1:CLS #1 

130 LOCATE 2,25:PEN 3:PRINT CHR$(164);" 
L.M,C SOFTWARE nov 86" 

140 FOR h=1 TO 60:x=INT(RND#640)+1:y=INT 
(RND#224)+176:PLOT x,y,12NEXT 

150 y=0:FOR h=1 TO 25:x=INT(RND#15)+11y= 
Y+x:1F y)160 THEN G0TO 170 

180 PLOT 1,16+y,3:DRAW 640,16+y 

170 NEXT 

180 y=0:FOR h=16 TO 144 STEP 2:PLOT 1,h, 
O:DRAN 1+y,h:y=y+7,5:NEXT 

190 PEN 0:FOR h=1 TO 15:LOCATE h,16:PRIN 
T CHR$(145):NEXT 

200 y=0:FOR h=1 TO 20:x=INTIRND#15)+1: y= 
y+x:1F y)160 THEN 220 

210 PLOT 1,16+y,1:DRAN 1+(y#4),16+y 

220 NEXT 

230 FOR h=192 T0 464 STEP 2:PLOT 320,320 
52: DRAN h, 144: NEXT 





240 FOR h=46B TO 560 STEP 2:PLOT 320,320 
41 DRAN h, 44: NEXT 

250 FOR h=160 TO 320 STEP 2:PLOT 256,224 
32:DRAN h,96:NEXT 

260 FOR h=322 T0 394 STEP 2:PLOT 256,224 
1 DRAN h,96:NEXT 

270 FOR h=32 TO 170 STEP 21PLOT 112,192, 
2:DRAN h,64: NET 

280 FOR h=172 TO 208 STEP 24PLOT 112,192 
s LDRAN h, 64: NEXT 

290 PLOT 320,320,2:DRAM 464,1441DRAN 532 
,168:DRAN 320,320 . 

300 FOR h=1 TO S:PLOT 320,320: DRAN 464+1 
h#16),144+(h#b):NEXT 

310 PLOT 256,224:DRAW 320,96:DRAN 380,11 
2:DRAN 256,224 

320 FOR h=1 TO 3:PLOT 256,224: DRAW 320+( 
h#14),96+(h#4):NEXT 

330 PLOT 112,192:DRAN 170,64: DRAN 202,72 
:DRAN 112,192 

340 FOR h=1 TO 2:PLOT 112,192:DRAN 170+( 
h#10),64+(h#5):NEXT 

350 PLOT 320,320,1:DRAW 190,144: PLOT 256 
,224DRAN 172,112:PLOT 112,192:DRAN 30,6 
4 

360 FOR h=1 TO 360 STEP 2:DEG:PLOT 380,2 
80:DRAW 580+32#C05 (h) ,280+32#SIN(h) :NEXT 


370 b1$=" "sci$=" ":PRINT CHR$(22)+CHR$( 
1) 

380 DIN B$(40):DIM C$(40) 

390 SYNBOL AFTER 32:11=0 

400 ph#=' LA HONIE INVISIB 

LE" 

410 FOR j=1 TO LEN(ph$):FOR T=0 TD 7:PzP 
EEK(HIMEM+1+(ASC(MIDS (ph$,j,1))-32)#84T) 


420 a(T)=P:NEXTESYMBOL 140,80) ,810) ,a(i 
1,801) ,812) ,802) 803) (3): SYMBOL 141,at 
4) ,a14),815),815),a16),816) ,a(7) ,8(7) 
430 A$=CHR#(140)+CHR$(10)+CHR$ (8) +CHR$(1 
41)+CHR$ (11) 

440 GOSUB 490 

450 PEN S:LOCATE j+2,3:PRINT A$; :SOUND 2 
150,7,5,0,0,1 

460 NEXT 

470 FOR h=1 TO 20:b18=b1$+b#(h):c1$=c18+ 
C$(h):NEXT 

480 PRINT CHR$(22)+CHR$ (0): RUN "'aonie" 
490 11=11+1:b$(11)=CHR$(140):c$(11)=CHR$ 
(141) 

500 TAG:PLOT 639,:,2 

310 MOVE 20+(j#16;,370:PRINT b#(11); 

520 MOVE 20+1j#16),354:PRINT c$(11); 
“330 TAGOFF: RETURN 


60 REX : 
70 REN : 22420 PLOUARET 
80 REM : 
90 REM : TEL 96 38 94 24 


150 REM 111: 
160 SYMBOL A 


$=CHR$ (200) 

180 SYMBOL 201,6,6,24,46,16,24,3b,3b:bg2 
$=CHR$ (201) 

190 SYMBOL 202,96,96,28,48,72,8,22,16:bd 
1$=CHR$ (202) 

200 SYMBÜL 203,96,96,24,116,8,24,36,36:b 
d2$=CHR$ (203) 

210 SYMBOL 204,153,90,60,24,24,36,36,36: 
bt$=CHR$ (204) 

220 SYMBOL 205,0,255,255,118,114,96,192, 
b4:pat=CHR$ (205) 

230 SYMBOL 206,195,255,153,126,36,24,0,0 
::ase$=CHR$ (206) 

240 SYMBOL 207,6,6,24,46,8,30,33,64:bsg$ 
=CHR$(207):SYHBOL 208,96,96,24,116,16,12 
0,132,2:bsd$=CHR$ (208) 

250 SYMBOL 209,247,7,112,118,6,110,224,2 
4 

260 SYABOL 210,255,153,24,24,24,24,24,24 
1as$=CHR$ (210) 

270 SYMBOL 220,255,129,129,129,255,129,1 
29,129:he$=CHR$ (220) - 

280 SYNBOL 221,16,52,110,223,221,251,86, 
44: ail$=CHR$(221) 

290 SYMBOL 223,255,0,0,0,0,0,0,0:glu$=CH 
R$(223) 

300 SYMBOL 224,0,126,126,126,0,239,239,0 
310 SYMBOL 225,0,0,0,16,40,84,40,16:dia$ 
=CHR$ (225) 

320 SYMBOL 226,0,0,0,16,16,16,16,255:pic 
c$=CHR$ (226) 

330 SYMBOL 227,24,248,24,24,24,31,24,24 
340 SYMHBOL 228,28,24,20,12,28,24,20,12 
350 SYABOL 229,0,127,15,111,111,111,96,2 
Star $=CHR$ (209) 

360 SYMBOL 230,126,66,64,64,126,2,2,6b 


370 nr$=CHR$(22)+CHR$(0)1tr$=CHR$ (22) +CH 
R$(1)1ef$=nr$+" 

380 REM sssssesepenssssstsnuseusnenet 
390 REN 

400 REN dessin et variables de base 
+10 REN 

420 REM stsssssssssgenensesss 
430 MODE 1:BORDER O:INK 0,0:INK 
2,24:INK 3,6:PAPER O:CLS 

440 WINDON #1,10,38,1,23:PAPER #1,0:CL5 
#1: NINDON 92,2,6,4,6:WINDON #3,2,6,2,23 


FE 
in 


450 ENV 4,15,-1,12ENT 3,20,3,5:ENV 2,5,2 
s2ENT 2,2,-5,2,3,-2,2,2,-10,2 

460 DIN a(40,24):ta=0:sc=0:vie=S:x=10:y= 
3 

470 GOTO 3450 

480 CLS:60SUB 500:60T0 1070 

490 CLS:60SUB 500:60T0 1070 

300 PLOT 1,399,3:DRAW 110,399:DRAN 110,1 
T:DRAN 1,17:DRAN 1,399:PLOT 8,391: DRAN 1! 




















02,391:DRAN 102,25: DRAN 8,25:DRAN 8,391 

310 PLOT 1,399:DRAN 8,391:PLOT 110,399:D 

RAN 102,391:PLOT 110,17:DRAM 102,24: PLOT 
1,17:DRAN 8,25 

320 PLOT 14,352,2:DRAM 96,352: DRAN 96,30 

2:DRAN 14,302: DRAN 14,352 

330 PEN 11LOCATE 2,2:PRINT"RADAR":LOCATE 
J,8:PRINT"TAB":LOCATE 3,12:PRINT "SCO": 
LOCATE 3,16:PRINT "AIL":LOCATE 3,20:PEN 
JPRINT'VIE":LOCATE 7,22: PRINT " * 

340 PEN 1:FOR h22 TO 6:LOCATE h,22:PRINT 
bgI$:NEXT:PEN 2:LOCATE 4,10: PRINT "{"iL 

OCATE 4,14:PRINT"0":60SUB 550:60T0 580 

390 LOCATE 3,18:PEN 1:PRINT AIL$+" "#AIL 

$:RETURN 

560 PEN 1:F0R h=2 TO 23:LOCATE 9,h:PRINT 
ar$:LOCATE 39,h:PRINT er$:NEXT:PEN 2:F0 

Rh=9 TO J9:LOCATE h,24:PRINT pa$:NEXT 

570 PEN 3:LOCATE 8,24: PRINT ast 

580 RETURN 

S90 REN nunstssuisessnennssnnennnnus 

600 REM 

610 RE dessin tableau 

620 REX 


640 ERASE a:DIX a(40,24) 

650 READ aur,pas,he,dia,pic 

660 PEN 1:FOR h=1 TO aur:READ d,f,9 

670 FOR c=d TO f:LOCATE g,c:PRINT ar$:al 
g,C)S4NEXT ciNEXT h 

680 FOR h=1 TO pas:READ d,f,g 

690 FOR c=d TO F:LOCATE c,g:PEN 2:LOCATE 
C,g!PRINT paf:alc,g)=1:NEXT c:NEXT h 
700 PEN 1:FO0R h=1 TO he:READ d,f,9 

710 PRINT nr$:FOR c=d TO #:LOCATE g,c:PR 
INT hefsa(g,c)=J:NEUT c:NEXT h 

720 PEN J:FOR hz1 TO dia:READ d,f 

730 LOCATE d,f:PRINT dia$:atd,f)=S3NEXT 

h 

740 IF pic=0 THEN 60TO 780 

750 FOR h=1 TO pic:READ d,f 

760 LOCATE d,f:PRINT picc#sald,f)=7:NEXT 
h 

770 PEN 2:LOCATE 3,10:PRINT nr$;ta 

780 RETURN 

790 REM sssessssneeensseennenenneness 

800 REX 

810 REX vie -1 

820 REN 

BJ0 REM sissseessessssenessennenennunss 
840 vie=vie-1:fin=0:PRINT nr$:CLS #2:L0C 

ATE x,y:PRINT ef$ 

850 IF alx,y)=3 THEN PEN 1:LOCATE x,y:PR 
INT he$ 

860 IF alx,y)=7 THEN PEN S:LOCATE x,y:PR 
INT piccf 

870 IF vie(0 THEN G0TO 2640 

880 PEN S:LOCATE 8,23:PRINT as$:LOCATE 8 
24:PRINT CHR$(H49):SOUND 6,20,1 

890 PEN 1:FOR h=2+vie TO B:LOCATE h,22:P 

RINT bg{$:FOR t=1 TO S0:NEXT:LOCATE h,22 
SPRINT bg2$:FOR tel TO SO:NEXT t:LOCATE 

h,22:PRINT " ":NEXT h:LOCATE 8,22:PRINT 
bgi$ 

900 60SUB 910:60T0 950 

910 FOR h=22 T0 1 STEP -1:PEN 1:LOCATE 8 
sh3PRINT nr$bgi$iPEN 3:LOCATE 8,h+11PRI 

NT asf$iLOCATE B,h+2: PRINT CHR$ (149) : SOUN 

D 6,20,1:F0R t=1 TO 3O:NEXT t:NEXT h 

920 PEN 1:FOR h=8 TO 10:LOCATE h,1:PRINT 


11 










bgi$:FOR t=1 TO 50:NEXT:LOCATE h,1:PRIN 
T bg2#:FOR t=1 TO SO:NEXT t:LOCATE h,1:P 
RINT " "iNEXT 

930 FOR hz1 TO 3:LOCATE 10,h:PRINT bt$:F 
OR t=1 TO SO:NEXT:LOCATE 10,h2PRINT " "s 
NEXT h:LOCATE 10,3:PRINT bgi$ 

940 FOR h=2 TO 23:PEN 3:LOCATE B,h:PRINT 
" "ILOCATE B,h+1:PRINT as$:SOUND 6,20,1 
FOR t=1 TO JO:NEXT t:NEUT h:RETURN 

950 x=dx:y=dytxi=dxi:yl=dy1:PEN J:LOCATE 
X1,yL:PRINT ase$:60SUB 2630:WHILE INKEY 
$C)" "1NEND 

960 a$=INKEYS:1F a$="" THEN 960 

970 LOCATE x1,y1:PRINT eff 

980 IF a$=" * THEN CLS H1:CLS #2:60T0 10 
70 

990 6070 1250 

1000 FOR h=1 TO 15:OUT &BCO0,2: OUT &BDOO 
,49:F0R t=1 TO 70:NEXT:SOUND 4,1500+h#10 

0,20,7,0,0,h:OUT &BCO0,2:OUT kBDO0,43:F0 

R t=1 TO 7O:NEXT:NEXT h:OUT &BCOO, 2: OUT 

&BD00,46 

1010 FOR hz1 TO 2000:NEXT:RETURN 

1020 REM net utet ete tts teen ts RE 
1030 REM 

1040 REM tableau +1 

1050 REM 

1060 REM settstetsete ets ses ts 
1070 ta=tatiiPEN 2:LOCATE 3,10:PRINT nr$ 
jta 

1080 ON ta 60T0 1090,1100,1110,1120,1130 
,1140,1150 

1090 he$=CHR$(230):RESTORE 4340:60SUB 64 

Oidiaa=Orgluz2:dx=10:dy=3:dx1=37:dy1=3:6 

OTO 840 

1100 he$=CHR$(220):RESTORE 4400:60SUB 64 

Oidian=0:glu=2:dxz10:dy23:dx1=20: dy1=22: 

60SUB 550:6070 900 

1110 pa$=CHR$(224):RESTORE 4460:60SUB 64 

Osdian=Orqlue2:dx=10rdy23:dx1=20:dy152:6 

OSUB 550:6070 900 

1120 pa$=CHR$ (229) she$=CHR$ (227) :RESTORE 
4520:60SUB b40:dian=0:glu=2:dx=10: dyz3: 

dx1=20:dy1=9:60SUB 550:60T0 900 

1130 pa$=CHR$(224) :he$=CHR$ (228) :RESTORE 
4590:60SUB b40:dias=0:glu=2:dx=10:dyz3: 

dxl=25:dy1=2:60SUB 550:60T0 900 

1140 pa$=CHR$ (229) she$=CHR$ (230) 1RESTORE 
4660:60SUB b40:dias=0:glu=2:dx=10: dy=34 

dx1=20:dy1=14:60SUB 550:60T0 900 

1150 PEN 2:LOCATE 16, 12:PRINT* UNE AUTRE 

?(0/N)* 

1160 A$=INKEY#:IF a$z"" THEN 1160 

1170 a$=UPPER$(a$):1F a$="0" THEN RUN 

1180 IF a$="N" THEN END 

1190 6070 1180 

1200 REM tssstesssenssstteesstettttt 

1210 REM 

1220 REX routine principale 

1230 REM 

1240 REM s2622n98tt0 tetes ts tent 

1250 6OSUB 2400: EOSUR 2420 

1260 IF finz1 THEN 60SUB 1000:6070 840 

1270 IF J0Y(0):8 THEN sens=1:60SUB 2590: 

6070 1380 

1280 IF JOY(0)24 THEN sens=2:60SUB 2590: 

6070 1510 

1290 IF JOY(0)21 THEN GOSUB 2590:60T0 16 

50 

1300 IF J0Y(0)=2 THEN G60SUB 2590:6070 19 


20 

1310 IF JOY(0)=16 THEN GOSUB 2590:6070 | 

750 

1320 G60TD [250 

1330 REM sssssssstentesinnentststtstt 
1340 REM 

1350 REM vers la droite 

1360 REN 

1370 REM sesssussegenentes 

1380 x=x+1:IF alx,yizl OR ax, 

x=x-1:6070 1250 

1390 LOCATE x-1,y:PRINT ef$:IF alx-1,y)= 

3 THEN PEN 1:LOCATE x-1,y:PRINT he$ 

1400 PEN 1:LOCATE x ,y:PRINT tr$;bg2$:FOR 
t=1 TO SO:NEXT:IF alx,y)23 THEN GOTO 14 

10 ELSE LOCATE x,y:PRINT ef$:LOCATE x,yt 

PRINT bgif$ 

1410 IF alx,y)=5 THEN GOSUB 2180:a(x,y)= 

0:1F dias=dia THEN GOSUB 2320 

1420 IF alx,y+1)=0 THEN GOTO 2030 

1430 IF alx,y+1)=7 THEN 6070 1450 

1440 GOTO 1250 

1450 LOCATE x,yaPRINT ef#iLOCATE x ,y+11P 

RINT trésbt$:fin=i:y=y+1160SUB 1000: 6070 
840 

1460 REM 1030280 U8S NUS USE SUR 
1470 REM 

1480 REN vers la gauche 

1490 REM 

1500 REM esse tests tte 
1510 x=x-1: IF alx,y}24 THEN xzx+1:60T0 1 

250 

1520 IF alx,y)z1 THEN x=x+1:60T0 1250 
1530 LOCATE x+1,y:PRINT eff:IF alx+i,yis 
3 THEN PEN JiLOCATE x+1,y2PRINT he$ 

1540 PEN 1:LOCATE x ,y&PRINT tr$;bd2$: FOR 
t=i TO SO:NEXT:IF a(x,y)=3 THEN 60T0 15 
50 ELSE LOCATE x ,y:PRINT ef$:LOCATE x,ys 
PRINT bdif$ 

1550 IF alx,y)=5 THEN GOSUB 2180:alx,y}x 
0:IF dias=dia THEN GOSUB 2320 

1560 IF alx,y)=10 THEN G0TO 2330 

1570 IF alx,y+1)=0 THEN G0TO 2030 

1580 IF alx,y+1)=7 THEN G60T0 1450 

1590 6070 1250 

1600 REM 422222002888 tStUS USSR E 
1610 REM 

1620 REN vers le haut 

1630 REN 

1640 REM ssssssseenentntstnnnseststss 
1650 IF a(x,y)23 THEN LOCATE x,y:PEN 11P 
RINT nr$she$ ELSE 1250 

1660 y=y-1:1F alx,y}23 THEN PEN 1:LOCATE 
x,YEPRINT tr#;bt$sFOR tel TO SO:NEXT ti 
60TO 1250 

1670 ON sens 60T0 1680,1690 

1680 LOCATE x,y:PRINT bg1$:60T0 1250 
1690 LOCATE x,y:PRINT bdi$:60TO 1250 
1700 REN 26222 et este RES REEE 
1710 REM 

1720 REM saut 

1730 REN 

1740 REM sessseseestetes sites tetnttss 
1750 IF a(x,y)=3 THEN B0TO 1250 

1760 ON sens 60TO 1770,1820 

1770 IF alx+i,y+1)=7 THEN 60T0 1790 
1780 IF alx+i,y+1)()0 THEN G0TO 1250 
1790 FOR h=1 TO 3ix=x+l:IF alx,y)=4 DR a 
(x,y)23 OR alx,y}=5 THEN x2x-1 

1800 LOCATE x-1,y:PRINT ef$:LOCATE x,y:P 


RINT bsg$:NEXT 

1810 IF alx,y+1)=0 THEN 6070 2090 ELSE 1 

250 

1820 IF alx-1,y+1)=7 THEN GOTO 1840 

1830 IF alx-1,y+1)(30 THEN GOTO 1250 
1840 FOR h=1 TO Sixzx-111F alx,y}=4 OR à 
(x,y)=3 OR alx,y}=S THEN xextl 

1850 LOCATE x+1,y2PRINT ef#iLOCATE x,y1P 

RINT bsd#:NEUT 

1860 IF alx,y+t)=0 THEN 6070 2090 ELSE | 
250 

1870 REM suustttees te tt nl tnt 
1880 REM 

1890 REM descente ou depose de l'ail 
1900 REN 

1910 REM qsen teste nt Ust st 
1920 IF alx,y+i)=i AND alx,y}(23 THEN 60 
T0 1960 

1930 IF alx,y+1)(33 THEN GOTO 1250 

1940 y=y+l:IF alx,y-1)50 THEN LOCATE x,y 
-L1PRINT eff ELSE LOCATE x,y-12PRINT nr$ 
hef 

1950 LOCATE x,y2PEN 1:PRINT tré;bt$:FOR 
t=i TO SO:NEXT t:6070 1250 

1960 IF gluz0 OR alx,y)=8 THEN 1250 

1970 PEN S:LOCATE x,v+1: PRINT tr#:glu$: a 
(x,y)S#BILOCATE 1+(glu#2) ,18:PRINT ef$iql 
u=glu-1: 6070 1250 

1980 REM 299042988209 St tte 
1990 REM 

2000 REM chute libre 

2010 REM 

2020 REM ssssesesesenuneusenenenss 
2030 LOCATE x,y:PRINT * “:60SUB 25 
2040 y=y+1:60SUB 2600:PEN 1: SOUND 

on,3,5i 

2050 IF alx,y)20 THEN sonsson+10:LOCATE 
x,Y:PRINT bt$ 

2060 IF alx,y+1)(30 THEN son=0 

2070 IF alx,y+1)=2 THEN GOTO 1250 

2080 IF alx,y+1)=3 THEN G0TO 1250 

2090 IF alx,y+1)=1 THEN GOTO 1250 

2100 IF alx,y+1)=7 THEN G0TO 1450 

2110 IF alx,y+1)=5 THEN GOSUB 2180:alx,y 

+1)=0:1F diae=dia THEN GOSUB 2320 

2120 FOR t=1 TO 20:NEXT t:607T0 2030 

2130 REM ssssussnntenensnsennntennnets 

2140 RE 

2150 RE rubis +1 

2160 REX 

2170 REM vssssssessessanent 

2180 dias=diantiisco=sco+10 
2,14:PRINT sco:pose=0 

2190 IF alx1,y1}=9 THEN LOCATE x1,y1:PRI 

NT ef$:PEN O:LOCATE x1,yi+1:PRINT tr$:gl 

u$:alxl,y1)=0 

2200 IF alxi,yl+i)zl OR alx1,y1)e3 THEN 

LOCATE x1,yIePRINT tr$;ases 

2210 SOUND 2,40,0,5,2,2:FO0R h=1 TO 10:L0 

CATE x1,yL2PEN 1:PRINT ase$:FOR t=1 TO 2 

O:NEXT:LOCATE x1,y1:PEN SPRINT ase$:FDR 
t=1 TO 20:NEXT:NEXT 

2220 IF alx1,y1)=20 THEN PEN 1:LOCATE x, 

YL:PRINT ef$:RETURN 

2230 IF alxi,y1)e3 THEN PEN 1:LOCATE x, 

YLPRINT nr$;he$:RETURN 

2240 IF alx1,y1)=4 THEN PEN LOCATE x1, 

YLEPRINT nr$;ar$:RETURN 

2250 IF alx1,y1)25 THEN PEN S:LOCATE x1, 

YL:PRINT nr$ydia$: RETURN 


ou 
90 
i, 


déts 


PEN 





2260 RETURN 

2270 REM sites estusents sets 
2280 REM 

2290 REM ouverture de la porte 

2300 REM 

2310 REM sssssssuneesss 
2320 SOUND 3,20,100,15, 
{LOCATE 9,23:PEN 3:PRIN 
JO:NEXT t:LOCATE 9,23:PRINT ef#:FOR t=l 
TO JO:NEXT LINEXT h:a(9,23)=10:RETURN 
2330 FOR h=1 TO 25 :SOUND 1,0,15,15,4,,5 
#LOCATE #1,29,23:PRINT #1,CHR$(32):F0R t 
=] TO SOINEXT tiNÉXT hiCLS 42 

2340 LOCATE 9,23:PRINT ef$:PEN 1:LOCATE 
8,23:PRINT bdi$:FOR t=1 TO 60:NEXT t:LOC 
ATE 8,23:PRINT bd2$:FOR t=1 TO BO:NENT t 
2350 LOCATE 8,23:PRINT bg1#:FOR t=1 TO 6 
O:NEXT t:LOCATE 8,23:PEN S:PRINT as$iLOC 
ATE 8,24:PRINT CHR$(149):PEN 1:LOCATE 8, 
22:PRINT bgi$ 

2360 60TO 1070 

2370 REM ssssssesses 

2380 REM 

2390 REM deplacesent de l'ase 

2400 REM 

2410 REM sssssnnstsssenntetseettinnnt 
2420 1F pose=1 THEN 2530 ELSE GOSUB 2610 


5,0, 
INT 


2430 IF yoyi AND alx1,yi+i)=i THEN GOTO 
2480 

2440 IF alxl,yl+i)=0 THEN ylzy1+0.5:60T0 
2500 

2450 IF y>yi AND alxi,yi+1)23 THEN ylzyl 

+0,5:60T0 2500 

2460 IF yCyl AND alxi,yi-1)23 THEN yi=y1 
-0.5:6070 2500 

2470 IF y<yl AND alxi,y1)z3 THEN ylzy1-0 
.5:60T0 2500 

2480 IF x>x1 THEN xi=x1+0,5:60T0 2500 
2490 IF x€xi THEN x{=x1-0,5 

2500 IF alxt,y1)z8 THEN posezl:a(xi,yllz 
9 ELSE GOTO 2520 

2510 PEN 3:LOCATE x1,yL:PRINT tr$;ane$ 
2520 60SUB 2620:RETURN 

2530 IF alx,y)=9 THEN finslialx,y)=02RET 
URN ELSE RETURN 

2540 REM 3229800890 N SUN EE 
2550 REM 

2560 REM radar 

2570 REM 

2580 REM sise sut 
2590 PLOT (x#21+16,352-(y#2) ,0: RETURN 
2600 PLOT (x#2)+16,352-(y#2) , 1: RETURN 

2610 PLOT (x1#2)+16,332-(y1#2) ,0: RETURN 
2620 IF TEST((x1#2)+16,352-(y1#2)1)€)0 TH 

EN fin 

2630 PLOT (x1#2)+16,352-(y1#2) ,2:RETURN 
2640 REM tetes et st tt tte SUN 
2650 REN 

2660 REM PERDU 

2b70 REM 

2680 REM 2st22t92t99924t tent St ttes 
2690 WHILE INKEY#()"":WEND 

2700 RESTORE 2730:WINDON 9,29,6,16:CLS: 
INDON 10,31,7,17:PAPER 1:CLS:WINDOW 1,40 
51128 

2710 PEN 0:B=8:FO0R I=1 TO 2:F0R X=11 TO 

26 STEP S:FOR Y=B TO B+3:LOCATE X,V:FDR 

J={ TO 4:READ A:PRINT CHRSIA)3;:NEXT J:NE 
XT Y:SOUND 1,0,15,15,1,,13:NEXT X:B=13:N 


EXT 1 

2720 FOR t=1 TD 2000:NEXT:NHILE INKEY#() 
"ei MEND:CALL UBBIB:ERASE a:60TD 380 

2730 DATA 214,143,143,215,143,32,32,932,1 
43,32,213,215,213,143,143,212 

2740 DATA 214,143,143,215,143,32,32,143, 
143,143,143,143,143,32,32,143 

2750 DATA 143,215,214,143,143,143,143,14 
3,143,213,212,143,143,32,32,143 

2760 DATA 143,143,143,143,143,140,140,32 
143,131,131,32,143,143,143,143 

2770 DATA 214,143,143,215,143,32,32,143, 
143,32,32,143,213,143,143,212 

2780 DATA 143,32,32,143,143,32,32,143,21 
3,215,214,212,32,213,212,92 

2790 DATA 143,143,143,143,143,140,140,32 
1143,131,131,32,143,143,143,143 

2800 DATA 143,143,143,215,143,32,32,143, 
143,143,143,212,143,32,213,215 

2810 REM 222222024824 U tete 
2820 REM 

2830 REM creation et sauvegarde 

2840 REM 
ELEC EEE EE 
2860 CLS:ERASE a:DIM (40,25) :pa$=CHR# (2 
29):60SUB 500:60SUB 560 

2870 CLS #1:CLS #3:PLOT 14,352,0:DRAN 96 
,352:DRAN 96,302:DRAN 14,302: DRAN 14,352 


2880 FOR h22 TO 23:a(9,h)m4ra(39,h)=4iNE 


XT:FOR h=9 TO J9:a(h,24)z1:NEXT 

2890 PEN 1:LOCATE 3,2:PRINT'M="+ar#:LOCA 
TE 3,S:PEN 2:PRINT"Te"+pa$:LOCATE J,8:PE 
N PRINT" Ha"+he$iLOCATE 3,11:PEN S:PRIN 
T'R="+#diafiLOCATE 3,14:PRINT"P="+picc$ 
2900 PEN 1:LOCATE 2,17:PRINT"C=CLS":PEN 
2:LOCATE 2,20:PRINT"EzEFF":PEN 3:LOCATE 
2,23:PRINT"F=FIN" 

2910 LOCATE #1,1,61PEN #1, LPRINT #1," 1 
- CHOISSIR L'ELEMENT DE":LOCATE 41,1,9:P 
RINT#1,"  DECORS':LOCATE #1,1,12:PRINT 
#1," 2- DEPLACEMENT AVEC CURSEUR" 

2920 LOCATE #1,1,15:PRINT #1," 3- VALIDA 
TION AVEC (COPY)":PEN 2:LOCATE 31,20:PRI 
NT'(ENTER)" 

2930 GALL &BBI8:CLS HI:PEN 2:LOCATE 10,4 
PRINT pa$:a(10,4)=1:PEN 1 

2940 fy=2:px=10:py=2:LOCATE px,py:PRINT 

CHR$ (43) 

2950 k#=INKEY#:1F k$="" THEN 2950 

2960 kS$=UPPERS(k$):IF k$="M" THEN b$=ar$ 
tc=hscozl:fy1z2:60SUB 3380 

2970 IF k$="T" THEN b$=pañic=ico=2:fyle 

S:60SUB 3380 

2980 IF k$="H" THEN b$she$scedico=li1fyis 

8:60SUB 3380 

2990 IF k$="R" THEN b$=dia$:c=5:co=3:fyl 

=11:60SUB 3380 

3000 IF k$="P" THEN b$=picc$icz7:co23:fy 
1214:60SUB 3380 

3010 IF k$="C" THEN 6070 2840 

3020 IF k#="E" THEN b$=ef$:c=0 

3030 IF k$="F" THEN G6OTO 3190 

3040 IF k#=CHR$#(240) AND py>2 THEN GOSUB 
3100:py=py-1:60SUB 3170 

3050 IF k$=CHR#(241) AND py(24 THEN 60SU 
B 3100:py=py+1:60SUB 3170 

3060 IF k#=CHR#(242) AND px>10 THEN GOSU 
B 3100:px=px-1:60SUB 3170 

3070 IF k#=CHR#(243) AND px(38 THEN GOSU 


B 3100:px=px+1:60SUB 3170 

3080 IF k#=CHR$(224) THEN LOCATE px,py:P 
EN co:PRINT nr$ib$:alpx,py)=ct1F bécefs 

THEN PEN 1 ELSE PEN 0 

3090 LOCATE px,py:PRINT tr$;CHR$ (43) :60T 
0 2950 

3100 trazalpx,py) 

3110 IF tra=0 THEN LOCATE px,py:PEN O0:PR 
INT CHR$(143):RETURN 

3120 IF tra=1 THEN LOCATE px,py1PEN 2:PR 
INT nr$;pa$:RETURN 

3130 IF tra=3 THEN LOCATE px,py:PEN L1PR 
INT nr$she$:RETURN 

3140 IF traz4 THEN LOCATE px,py1PEN L1PR 
INT nr$;ar$:RETURN 

3150 IF tra=5 THEN LOCATE px,py:PEN J:PR 
INT nr$;dia$:RETURN 

3160 IF traz7 THEN LOCATE px,py:PEN J1PR 
INT nr$;picc$:RETURN 

3170 IF alpx,py)=0 THEN PEN 1:LOCATE px, 
py:PRINT CHR$(43) ELSE PEN O:LOCATE px,p 
YiPRINT tr$;CHRS (43) RETURN 

3180 RETURN 


3190 LOCATE 1,23:PEN L:PRINT" Js JE 


U : S = SAUVEGARDE" 

3200 A$=INKEYS:IF a$="" THEN 3200 

3210 a$=UPPERS(a$):1F a$="J" THEN GOTO 3 
240 

3220 IF a$="S" THEN GOTO 3300 

3230 60T0 3200 

3240 G60SUB 3250:PRINT nr$:6070 900 

3250 60SUB 3390:PEN 1:LOCATE 3,25: INPUT 
“NOMBRE DE DIAMANTS “rdia 

3260 G6OSUB 3390:CLS #3:60SUB 500 

3270 ta=i:dias=0:glur2:1dx=101dy=3:dx1=15 
:dy1z3:60SUB 3100 

3280 1F aldxi,dy1)()0 THEN dulzdxt+lidyl 
=dy1+1:6010 3280 

3290 RETURN 

3300 G60SUB 3250:60SUB 3390:PEN 1:LOCATE 
1,25: PRINT" press any key when Rea 
dy":CALL &BB18 

3310 GOSUB 3390:PEN 1:LOCATE 1,25:PRINT" 
NOM DU FICHIER :"3;2PEN 2:PRINT "TABLEAU" 
3320 OPENOUT "'TABLEAU*" 

3330 FOR hz1 TO 40:FOR gzi TO 25 

3340 PRINT #9,alh,g):NEÂT g:NEXT h 

3350 PRINT 49,dia:PRINT #9,dx1:PRINT 49, 
dyl 

3360 CLOSEOUT 

3370 GOSUB 3390:PEN 1:LOCATE 12,25:PRINT 
"SAUVEGARDE TERMINEE":FOR T=1 TO 3O00:NE 
XT RUN 

3380 LOCATE 2,fy:PRINT ef$:fy=#yl:PEN 3: 
LOCATE 2,fy:PRINT CHR$(243) :RETURN 

3390 PEN O:LOCATE 1,25:PRINT STRING$ (35, 
CHR$(143)):RETURN 

3400 REM 222902228858 tt st 
3410 REN | 

3420 REM senu carrefour 

3430 REM 
3440 REM ::: 
3450 CLS:PEN 
(21,°#"):LOCA 


CREER EEE EEE EEE 
LOCATE 11,5:PRINT SFRING$ 
11, 


ÿ 
T 21:PRINT STRINGS(21," 


E 
#")2FOR h=6 TO 20:LOCATE 11,h2PRINT “#"s 
LOCATE 31,h:PRINT"#":NENT 

3460 PEN 2: LOCATE 14,74PRINT"{ -";:PEN 1 
:PRINT" EXPLICATIONS" 

3470 PEN 2:LOCATE 14,10:PRINT"2 -"3:PEN 
L:PRINT' JEU" 





3480 PEN 2:LOCATE 14,13:PRINT"3 -"3:PEN 
L:PRINT" CLAVIER" 

3490 PEN 2:LOCATE 14,16:PRINT"4 -"; PEN 
L:PRINT® CREATION" 

3500 PEN 2:LOCATE 14,19:PRINT"S -"3:PEN 
1:PRINT® CHARGEMENT" 

3510 A$=INKEY$:IF a$="" THEN G0TO 3510 
3520 PRINT CHR$(7):1F A$="1" THEN GOTO 4 
010 

3530 IF A$="2" THEN 6070 480 

3540 IF A#="3" THEN 6070 3630 

3530 IF A$="4" THEN 6070 2860 

3560 IF A$="5" THEN 6070 3780 

3570 6070 3510 

3980 REM sssssssespeneessssnnesessnttt 
3590 REM 

3600 REN version clavier 

3610 RER 

3620 REM sssssesessssspeneunnnenese 
3630 d1$=CHR$ (243) : d2$=CHR$ (242) : d3$=CHR 
81240): d4$=CHRS$ (241) :d5$=CHR$ (224) 

3640 CLS:LOCATE 14,1:PEN L2PRINT"MODE CL 
AVIER":PEN 2:LOCATE 14,2:PRINT" 


3650 PEN 3S:LOCATE 1,4:PRINT" L'algoryth 

se du jeu est plus efficace avec un JOYS 

TICK sais si vous n'en pos- sedez pas ta 

pez les lignes suivantes." 

3660 PEN 1:LOCATE 1,8:PRINT"1250 a$sinke 

Y$:60SUB 2600:G60SUB 2420" 

3670 LOCATE 1,10:PRINT"1270 IF a$=di$ TH 

EN sens=1:60SUB 2590:60T0 1380" 

3680 LOCATE 1,13:PRINT"1280 IF a$=d2$ TH 

EN sens=2:60SUB 2590:60T0 1510" 

3690 LOCATE 1,16:PRINT"1290 IF a$=d3$ TH 

EN G60SUB 2590:6070 1650" 

3700 LOCATE 1,19:PRINT"1300 IF a$=d48 TH 

EN 60SUB 2590:607T0 1920" 

3710 LOCATE 1,22:PRINT"1310 IF a$=d5$ TH 

EN 60SUB 2590:6070 1750" 

3720 LOCATE 33,24:PEN 3:PRINT"(enter)":C 

ALL 4BB18:6070 3450 

3730 REM sssssssssesessteenesnetsest 

3740 REM 

3750 REM chargesent 

3760 REN 

3770 REM sisssssseestssttsetsststss 

3780 CLS:ERASE a: DIM a(40,25):60SUB 500: 

60SUB 560:pa$=CHR$ (229) 

3790 GOSUB 3390:PEN 1:LOCATE 1,25: PRINT" 
CHARGEMENT EN COURS" 

3800 OPENIN "'tableau" 

3810 FOR hz1 TO 40:FOR g=1 TO 25 

3820 INPUT #9,ah,g):NEXT g:NEXT h 

3830 INPUT #9,dia: INPUT 8#9,dx1: INPUT 89, 

dyl 

3840 CLOSEIN 

3850 60SUB 3390:PEN 1:LOCATE 1,25:PRINT" 
CHARGEMENT TERMINE" 

3860 FOR h=1 T0 40:F0R g=1 TD 25 

3870 tra=alh,9) 

3880 IF tra=0 THEN GOTO 3940 

3890 IF tra=1 THEN PEN 2:LOCATE h,g:PRIN 

T paf:6070 3940 : 

3900 IF tra=3 THEN PEN 1:LOCATE h,g:PRIN 

Thef:60T0 3940 

3910 IF tra=4 THEN PEN 1:LOCATE h,g:PRIN 

T ar$:60T0 3940 

3920 IF tra=5 THEN PEN S:LOCATE h,g:PRIN 

T diaf:6070 3940 


3930 IF traz7 THEN PEN S:LOCATE ‘h,g:PRIN 
Tpicc$ 

3940 NEXT g:NEXT h 

3950 GOSUB 3390:ta=1:dias=0:glu=2:dx=10: 
dy=3:60T0 900 

3960 REN ssssssstts 

3970 REM 

3980 REM 

3990 REK 

4000 REM :::: 

4010 CLS:LOCA 

SIBLE":PEN 2: 

4020 PEN 3:LOCATE 1,4:PRINT" Toi etre ex 
plorateur "::PEN 2:PRINT"TULADANLOS. " 
4030 PEN J:LOCATE 1,5:PRINT" Toi avoir t 
rouve entree pyraside." 

4040 LOCATE 1,6:PRINT" Pyraside de "y1PE 
N 2:PRINT'FEGAFATEFES ";2PEN S:PRINT"gra 
nd Pharahon." 

4050 LOCATE 1,7:PRINT" Toi faire sain ba 
sse sur tresors," 

4060 LOCATE 1,8:PRINT" Toi hosse vil..." 
4070 LOCATE 1,9:PRINT" Toi poursuivi par 
ase de FEGAFATEFES," 

4080 LOCATE 1,10:PRINT° Ane invisible,tr 
averser aurs," 

4090 LOCATE 1,11:PRINT" Dur ,dur pour toi 
4100 LOCATE 1,12:PRINT" Mais toi >voir v 
u file "::PEN 1:PRINT"GHOSTBUSTER, " 

4110 PEN S:LOCATE 1,13:PRINT" Toi avoir 

radar à fantoses.* 

4120 LOCATE 1,14:PRINT" Toi avoir aussi 
vu file "y:PEN 1:PRINT'DRACULA, * 

4130 PEN 3:LOCATE 1,15:PRINT" Toi avoir 
gousses d'ail." 

4140 LOCATE 1,16:PRINT" Ca etre grands s 

ortileges.* 

4150 LOCATE 1,17:PRINT" Toi avoir peut e 

tre une chance." 

4160 LOCATE 1,18:PRINT" Si toi faire les 
six tableaux." 

4170 LOCATE 1,19:PRINT" Moi donner à toi 
grand pouvoir." 

4180 LOCATE 1,20:PRINT" Pouvoir de fabri 

quer tableau tout seul." 

4190 PEN 1:LOCATE 1,22:PRINT" Toi avoir 

tout cospris blablabla ?" 

4200 LOCATE 1,23:PRINT" Toi pas bete. Toi 
taper touche..." 

4210 CALL &BB18 

4220 CLS:LOCATE 15,1:PRINT"DEPLACEMENTS" 

PEN 2:LOCATE 15,2:PRINT"##s#er+444" 

4230 LOCATE 1,4:PRINT"Joystick":PEN 1:L0 

CATE 1,5:PRINT" 

4240 LOCATE 8,7:PRINT CHR$(241):LOCATE 1 

4,7:PRINT"= depose de l'ail" 

4250 LOCATE 5,9:PRINT"{FIRE) = saut" 

4260 PEN 2:LOCATE 1,11:PRINT" Clavier "1PE 

N L:LOCATE 1,12:PRINT" 

4270 LOCATE 8,13:PRINT CHR$(241):LOCATE 

14,13:PRINT'= depose de l'ail" 

4280 LOCATE 3,15:PRINT"€COPY) = saut" 

4290 PEN 3:LOCATE 6,17:PRINT STRING6$(30, 


24) 


4300 PEN 2:LOCATE 4,19:PRINT"(ANY KEY)": 
LOCATE 14,19:PEN I:PRINT'= depart de ta 
bleau" 

4310 PEN 2:LOCATE 5,21:PRINT"(SPACE)":LO 


CATE 14,21:PEN 1:PRINT"= changesent de 
tableau" 

4320 LOCATE 33,25:PEN 1:PRINT'CENTER)":C 
ALL &BB18:CLS:60T0 3450 

4330 REM ##### datas tableau { ####+ 
4340 DATA 2,7,5,6,0 

4350 DATA 2,23,9,2,23,39 

4360 DATA 9,39,24,10,13,4,23,38,4,19,26, 
9,29,33,12,15,23,18,29,37,18 

4370 DATA 4,23,12,4,17,36,9,17,22,18,23, 
16,18,23,31 

4380 DATA 11,3,27,3,19,8,32,11,15,17,30, 
17 

4390 REM ####+ datas tableau 2 #+##4+ 
4400 DATA 2,7,9,16,0 

4410 DATA 2,23,9,2,23,39 

4420 DATA 10,13,4,24,25,4,23,27,8,19,29, 
12,16,33,16,13,35,20,9,39,24 

4430 DATA 4,7,23,8,11,22,8,11,27,12,15,1 
9,12,15,29,16,19,16,16,19,33,20,23,13,20 
123,35 

440 DATA 25,3,24,7,26,7,20,11,24,11,28, 
11,21,15,25,15,91,15,19,19,24,19,29,19,1 
6,23,22,23,27,23,32,23 

4450 REM ####+ datas tableau 3 #+++# 
4460 DATA 2,11,4,9,0 

4470 DATA 2,23,9,2,23,39 

4480 DATA 10,12,4,19,26,3,28,38,3,18,29, 
7,17,23,11,27,33,13,10,13,19,15,20,16,22 
,28,19,33,38,19,9,39,24 

4490 DATA 4,7,13,3,18,37,16,23,21,19,23, 
33 

4500 DATA 35,2,19,6,22,10,29,12,18,15,27 
118,10,18,18,23,37,23 

4510 REN ##### datas tableau 4 ##### 
4520 DATA 3,10,5,10,2 

4530 DATA 2,23,9,2,23,39,11,19,13 

4540 DATA 10,11,4,12,20,6,13,33,10,35,38 
110,16,24,13,20,23,17,28,33,17,13,18,20, 
28,38,21,9,39,24 

4550 DATA 4,23,11,13,19,15,20,23,19,6,9, 
21,17,20,33 

4560 DATA 18,5,15,9,29,9,37,9,20,12,21,1 
6,31,16,14,19,38,20,33,23 

4570 DATA 25,10,17,20 

4580 REM ####+ datas tableau 5 ##+#4 
4590 DATA 8,12,6,10,4 

4600 DATA 2,23,9,2,23,39,5,12,16,8,12,21 
14,7,24,4,5,34,17,23,15,17,20,19 

4610 DATA 10,16,4,24,30,3,32,34,3,29,34, 
6,21,31,8,16,21,13,28,29,12,92,33,14,36, 
38,11,15,26,16,19,28,21,9,39,24 

4620 DATA 4,23,10,18,23,14,8,12,20,3,7,2 
3,6,23,27,11,23,37 

4630 DATA 16,3,22,7,25,7,34,2,31,7,38,10 
129,11,33,13,28,20,24,23 

4640 DATA 18,13,29,8,29,24,34,24 

4650 REM ##### datas tableau 6 #+##+ 
4660 DATA 5,15,4,12,4 

4670 DATA 2,23,9,2,23,39,5,14,24,17,23,1 
9,15,23,28 

4680 DATA 10,13,4,16,19,4,22,25,4,28,31, 
4,34,38,4,14,16,7,18,21,9,21,23,11,30,38 
,10,30,38,11,19,25,15,27,28,15,16,19,17, 
35,38,17,9,39,24 

4690 DATA 7,23,13,17,23,20,10,23,29,17,2 
3,34 

4700 DATA 17,3,23,3,29,3,37,3,16,b,20,8, 


..23,10,38,9,37,16,37,23,27,23,22,23 


4710 DATA 32,10,33,10,15,24,24,24 
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Daniel VANDENBROUCKE 


pu PARTICIPE PASSE AVEC AVOIR 
ils? Je les ai (rendu) au voisi 


ipe passé,en respectant 
! rendus 


Une des plus grandes diffi- 
cultés de l'orthographe est 
l'accord des participes pas- 
sés avec le verbe avoir. Vous 
n'aurez plus d'excuses si, 
après avoir tapé ce program- 
me, vous vous faites encore 
piéger par un participe mal ac- 
cordé. A quand CPC reconnu 
d'utilité publique ? 


Le programme propose un menu à 
4 options, avec un retour automa- 
tique au menu à la fin de chaque 
partie. Il s'agit de : 

— voir la règle 

— faire un exercice (3 au choix) 

— arrêter le programme 

— changer les phrases de l'exer- 
cice 

Chaque exercice comprend 7 phra- 
ses pour ne pas lasser l'attention ; 
l'exercice étant mis en DATAS, il 
est assez facile de l'agrandir. Le tra- 
vail est auto-correctif : si l'élève se 
trompe, le logiciel lui propose une 
aide "pas à pas” sous la forme 
d'une série de questions qui retra- 





cent les différentes étapes du rai- 
sonnement grammatical. Toute l'ai- 
de s'efface au moment où le pro- 
gramme demande à l'élève de don- 
ner à nouveau sa réponse. Le tra- 
vail s'effectue en minuscules accen- 
tuées, à l'aide du pavé numérique 
(voir guide de l'utilisateur). 

— Utilisation 

Le logiciel indique à l'élève ce qu'il 
doit faire (fenêtre en milieu d'écran) 
et comment il doit le faire (fenêtre 
en bas d'écran). 

La dernière partie du programme 
propose une aide à la modification 
des phrases et réponses de l'exer- 
cice, de façon très détaillée. Il con- 
vient donc d'avoir deux versions du 
logiciel : l'une PROTEGEE qui s'a- 
dresse à l'élève et UNE AUTRE 
NON PROTEGEE QUI S'ADRES- 
SE A CELUI QUI SUPERVISE 
L'EXERCICE (enseignant ou autre 
personne compétente). Le "super- 
viseur" modifie les datas et réenre- 
gistre une version protégée sans 
écraser la première : cela fera d'au- 
tant plus d'exercices. 


INILREECICITITETECEPTECTETEPEITITITTES 

2 REM CHARGEUR PARTICIP 

AN A IRILIICIEITENT ETIENNE ET EEET EE) 

3 REN 

10 NODE 0 

20 DIM 18(18):PAPER 11BORDER 2:CLS 

30 DATA A,B,C,D,E,F,6,H,1,0,K,L,M,N,OP, 

a,R 

40 LOCATE 6,6:PRINT"AAAAAAAAAA":FOR dei 

TO 100:NEXT d 

50 FOR isi T0 1B:READ 1#(1)1NENT i PAPER 
L:PEN 6 

60 FOR izi TO 7:LOCATE 6,6:PRINT 1$li):F 

OR t=1 TO 100:NEXT t:NEXT i:60SUB 500:F0 

R i={ TO 1B:LOCATE 7,6:PRINT 1$(i):F0R t 

=1 TO 100:NEXT t:NEXT i:60SUB 500 

70 LOCATE 8,6:PRINT'A":FOR t=1 TO JOO:NE 

XT t:60SUB 500:FOR izi TO 13:LOCATE 9,6: 

PRINT 1$(i):FO0R t=1 TO 100:NEXT t3NENT i 

:B0SUB 500:FOR iz1 TO 13:LOCATE 10,6:PRI 

NT 1#(4)3F0R tei TO 100:NEXT teNEXT 1160 

SUB 500:LOCATE 11,6:PRINT" "":FOR t=1 TO 

JOO:NEXT te 

75 G6OSUB 500:FO0R t=1 TO 100:NEXT t: LOCA 

TE 12,6:PRINT"A":FOR t=1 TO JOO:NEXT t:6 

OSUB 500:F0R t=1 TO 100:NEXT t 

80 FOR iz1 TO 93LOCATE 13,6:PRINT 1$(i): 

FOR t=1 TO 100:NEAT t:NEXT i:G0SUB 500:F 

OR iz1 TO 4:LOCATE 14,6:PRINT 1$(i):FOR 

ti TO 100:NEXT t:NEXT i:60SUB 500:FDR i 

=] T0 SiLOCATE 15,6:PRINT 18(1):FOR tel 

TO 100:NEXT t:NEXT i:60SUB 500 

90 PEN O:LOCATE 5,10:PRINT'ez=zezs2sz", 

LOCATE 5,12:PRINT"A © © D R D':LOCATE 9, 

14:PRINT"D U":LOCATE 3,16:PRINT"PARTICIP 

E PASSE"4LOCATE 6,18:PRINT"AVEC AVOIR": 

LOCATE 2,21:PRINT CHR$(164);" Vandenbrou 

cke D.":LOCATE 4,23: PRINT" =z=ezszz22" 

100 LOCATE 5,24:PRINT"je charge..." 

110 RUN!" 

500 SOUND 1,284,20,7,0,0,1 

510 RETURN 


10 " HHHEEHEERENRENEEHEEE GRANN'AIDE #+ 
ÉTITITITIT ET) 
20 ‘ ######4 PRESENTE PAR ##########4444 
EITITTITTI EE 
30 ‘ HÉBSHEUNEHHHRESHE#ES VANDENBROUCKE 
DANIEL ###4 
[TRE PTETETTTETET PETITE EEEETES EEE 





HAE 
50 MODE 1:BORDER 1:60SUB 930:60SUB 14004 
G60SUB 990:CLS: 
60 PRINTE2, " HHHEEEEEEEEEEFEREREEEHRES 
CECTIT PTT TER 
70 PRINT#2, “ ####4 ACCORD DU PARTICIPE 
PASSE #+##+ 
80 PRINT#2, 
CET ET RU 
90 PRINT, " HRHHHEEEEEEEEREEEEEE 
ÉELTE EEE TE 
100 LOCATE #3,2,1:PRINT#3,"Le participe 
passt eaploy{ avec AVOIR":LOCATES,1,2:P 
RINT#3, "s'accorde avec le C.0.D.} si ce 
dernier est plact avant le verbe, ":PRINT 
#3,STRINGS$ (40,"#")2PEN#3,7:PRINT#S, "POUR 
TROUVER LE C.0.D,poser la question:" 
110 LOCATER3,2,9:PRINTAS, "SUJET + AVOIR 
+ PARTICIPE PASSE + QUOI ?"4PRINT#S," 
ou" 
120 LOCATE#S, 1,14:PRINT#3, "SUJET + AVO 
IR + PARTICIPE PASSE + QUI ?":PEN#S,12PR 
INTHS,STRINGS(40,"#")2FOR Az 1 TO 10000: 
NEXT À 
130 LOCATERS,S,1S:PRINT#S," NB, QU 
01 s'esploie pour un C.0.D, dtsignant un 
aniaal ou une chose. ":PRINTES," 
QUI s'esploie pour un C.0,D, d{signa 
nt une personne, ":FOR azi T0 7O00:NEXT à 
1 PENES, CLS #3 
140 LOCATE#S, 17,2:PRINTES, " EXEMPLE * 
130 LOCATE#S, S,4:PRINTS, "J'ai vu 
une fille" 
160 FOR a=i TO 2500:NEXT à 
170 LOCATE#S, 5,14:PRINT#3, "SUJET + AVO 
IR + P,PASSE + QUI ?":FOR Az1 TO 2000:NE 
XT A 
180 LOCATE#S, 5,12:PRINT#S, " J'ai vu 
qui ? UNE FILLE":FOR al TO 3OO00:NEX 
Ta 
190 LOCATERS,5,6:PRINTES, * 
TE43, 7,7:PRINTAS, "QUI ? "FOR az1 T0 2 
SOO:NEXT a:LOCATESS, 15,7:PRINT#3," 
-"{LOCATE #3,21,6:PRINTES,CHR$ (149) :LOC 
ATE#3,21,52PRINT#S, CHR$(240):FOR az1 TO 
2500:NEXT à 
200 LOCATE#3,3,9:PEN#3,7:PRINT#S, "C.0.D 
. plact APRES LE VERBE donc":PRINT#3," P 
AS .D'ACCORD du participe pass{":FOR az! 
TO 3S00:NEXT asLOCATESS, 3,101F0R az1 TO 
JOOO:NEXT a: CLS#S:PENSS, 1 
210 LOCATERS,5,4:PRINT#S, "la fille que 
j'ai (vu)"3FOR azi TO SSO0:NEXT a: LOCAT 
E#3,2,16:PRINT#S, "SUJET + AVOIR + P.PAS 
SE + QUI ?":FOR a=i TO 2500:NENT à 
220 LOCATE#S,2,18:PRINT#S, " J'ai 
vu qui ?°4F0R ai TO SOOO:NEX 
Ta 
230 LOCATERS,18,5:PRINTES, " 
LOCATE#S,21,6:PRINTE3, "QUI ?":FOR azi T 
0 2500:NEXT a:LOCATE#3,15,6:PRINTÉS, "-- 
=" LOCATE#S,15,5:PRINT#3,CHR$ (240) :PEN 
#3,71LOCATERS, 14,4: PRINTHS, "QUE": FOR Az1 
T0 2000:NEXT À 
240 LOCATERS,15,3:PRINT#S,CHRS (145) :LOCA 
TE43,15,2:PRINTS,CHRS (156): LOCATERS, 11, 
2 PRINTES, "===" LOCATERS,10,2:PRINTES,C 
HR$(150):LOCATE#S,10,3:PRINT#S,CHR$ (241) 
250 PEN#3,72LOCATESS,1,112PRINT#S,"C. 0, D 
. plact AVANT LE VERBE donc ACCORD":LOCA 


CETTE AVEC AVOIR 


TE#3,1,12:PRINT#S, "du participe passt en 
genre et en noabre" 

260 LOCATE#S,13,13:PRINTEJ, "AVEC LE C.0, 
D.":FOR a=1 TO 5000:NEÂT à 

270 LOCATE#S,23,4:PRINT#S," VUE "1PE 
N#3,! 

280 FOR a=1 TO 6O00:NEXT à 

290 G6OTO 50 

JO0 ‘ HHBEREEHARAUNEEEEEEREEE PYOTC 
TOR IILIIIITITIITIIIIIE 

NIUE ITIS III IIIIIIIIIIITI III 
cospteurs HH##H##H4 

320 bz01#=01fa=0 

DIO ORAN OXOTC 
UORIITICIIIICIITIIIITE 

340 CLS#3:CLS#0:LOCATE#O,16,1:PRINT#0,"E 
XERCICE":FOR T=1 TO 1500:NEAT T 

350 DATA Les chiens avaient (poursuivi) 
les cerfs, poursuivi ,oui,2, cerfs,non,non 
360 DATA "Les outils? Je les ai (rendu) 
au voisin, ",rendus oui ,1,outils,oui ,oui 
370 DATA Les filles ont (cueilli) des ch 
aspignons,cueilli,oui,2, chaspignons non 
non 

380 DATA "Tous les fruits que j'ai (cuei 
11i),je te les donnerai." ,cueillis,oui,i 
fruits,oui oui 

390 DATA Les anies qu'ils avaient (connu 
) € Paris, connues ,oui,l, asies,oui oui 
400 DATA “Je leur ai (exptdit) les lettr 
es." ,exptdi {,oui,2,lettres,non,non 

410 DATA J'isagine bien la peur qu'ils 0 
nt (eu) ,eue,oui,{, peur ,oui oui 

420 DATA "0: les as-tu (achet{),ces rose 
s?",achet{es,oui,{,roses,oui ,oui 

430 DATA "Ces rigles,il les ont d{je (it 
udit)",{tudites,oui,1, rgles,oui ,oui 
440 DATA "Elle lui à (d{sign() une sorti 
e discrite",d{signt,oui,2,sortie,non,non 

450 DATA "Pendant deux heures, ils ont (c 

ouru),",couru,non,0,non,non,non 

460 DATA " Ces fourrures,ce n'est pas a0 

i qui les lui ai (vendu).",vendues oui ,1 

fourrures oui ,oui 

470 DATA "Les proseneurs ont (d{nich{) d 

es serles.",dtnicht,oui,2,serles ,non,non 

480 DATA " Les chiots que j'ai (caress{ 

} {taient aignons.",caress(s oui ,1,chiot 

s,non,non 

490 DATA " Elle renonce salgrt les encou 

ragesents que son entraineur lui à (don 

nt." ,donn(s,oui,1,encouragesents oui ,ou 

i 

500 DATA ‘Je vois que tu as (corrigt) to 

n exercice" ,corrig{,oui,2,exercice,non,n 

on 

510 DATA "Je ne l'ai jasais (vu),cette f 

ille,",vue,oui,!,fille,oui oui 

520 DATA “ Quels nustros avez-vous (de 

sand{) au standard ?",desand(s oui ,2,nus 

eros,oui oui 

530 DATA "La personne qui vous avait (t{ 

Liphont), est arrivte.",t{l{phont,non,0, 

non,non,non 

540 DATA “Nous t'avons (cherch{) longtes 

ps,dirent @ Lucie,les gar\ons." ,cherchie 

oui, i,Lucie,oui oui 

550 DATA “Voici les lettres que j'ai ({c 

riti.",{crites,oui,1,lettres oui ,oui 

560 CLS#O:LOCATERO,16,1:PRINT#O,"EXERCIC 


E":LOCATE #0,4,2:PRINT#0,"QUEL EXERCICE 

VOULEZ-VOUS FAIRE ?":PRINT#O:PRINTEO, "TA 

PEZ : 1 , 2 ou 3 + DENTERC" :INPUT#0 ," 
",C6:0N CG 6070 570,580,590 

570 RESTORE 350: GÔTO 600 

580 RESTORE 420: 60TO 600 

590 RESTORE 490: G0TO 800 

600 i=1:FOR i=1 TO 7:READ ph#li),boné(i) 
,repCOD#(i) ,nat(i) ,repgk#li) ,repavant$li 
),repaccord#(i) 

610 CLS#01CLS#2:PRINT#2:PRINT#2,"  ACCOR 

D DU PARTICIPE PASSE AVEC AVOIR":PRINT#2 
PRINT#2,ph#li) 

620 GOSUB 960:LOCATE#O,16,1:PAPERHO,O1PE 

N40,12CLSHO:PRINT#0, "EXERCICE" 

630 LOCATE#0,2,4: INPUT#0, "Ecris le part 
icipe pass(,en respectant la rhgle d'acc 

ord: ",pp#lil 

640 IF pp#lil=bon$(i} THEN GOTO 650 ELSE 
60TO 670 

650 LOCATE#0,10,8:PRINT#0, "TRES BIEN, 
“FOR dr=i TO 2000:NEXT dr: lF ie7 GOTO 9 
10 ELSE 6070 660 

660 PRINT#0," PASSONS À LA PHRASE SUIVAN 
TE, ":FOR a=1 TO 20004NEÂT aëNEUT i:60T0 
éiù 

670 IF pp#li}(> bon$li) THEN G0TO 690 

680 REM ############t##t correction pas 
à pas HÉRRAERERRERREÉESÉ 

690 f=f+1: LOCATE#O,10,8:PRINT#O, "CE N° 

EST PAS EXACT... ":PRINTHO, "Ce n'est peut 

-etre qu'une faute d'orthographe sur le 

radical ,aais":PRINT#0, "NOUS ALLONS CHERC 

HER ENSEMBLE":FOR Az1 TO 4000:NEXT À 

700 PEN #1,11PAPER#1,3:PEN #0,7:PAPER4O, 


6 

710 CLS#1:CLS#0:PRINT#0," 

AIDE":PRINT#1," Risuat des donntes appor 

tles par L'aide":LOCATE#O,1,5:PRINT#O, 

Ya-t-il un C.0.D, dans cette phrase 

?"3INPUT#0," tapes oui / non. ",cod#li 
) 

720 IF cod#li)= repCOD$(i) THEN G0TO 740 
ELSE 6OTD 730 

730 PRINT#0, “ ERREUR... LA REPONSE ETAI 

T “yrepCOD#(i)sFOR Hz1 TO 1600:NEXT H 

740 IF repCOD$({)="non" THEN G0TO 860: E 

LSE PRINT#1,"COD = "yrepCOD#(1):CLS#O:L 

OCATE#0,2,6:PRINT #0,"Le COD est-il un p 

ronos (1) ou un nos (2)? ":INPUT#O,* Tap 
e Le chiffre-code 1 ",calF cænat(1) THEN 
PRINT#0, "EXACT" ELSE GO0TO 750 

750 IF c)2 OR c€1 THEN PRINT#0, ‘Fais att 
ention 4 “:PRINT#0,"Le COd est-il un pro 
nos (1) ou un nom (2) ? "s:INPUT#0," Tape 
le chiffre-code suivi de )ENTERC ",c:1F 
cenat THEN PRINT#O, "EXACT" 

760 IF cCnat(i} THEN PRINT#0, "Ce n'est 
pas exact;le COD est un "y21F natlil=i T 
HEN PRINT#0,"PRONOM. "ELSE PRINT#0, "NOM," 
:FOR hg=1 TO 1500:NEXT hg:60T0 770 

770 IF natli)=2 THEN PRINT #1,"le COD es 

t un nos : "326070 790 

780 IF natli2=1 THEN PRINT #1,"le COD es 

t un pronos qui reaplace le nos";:6070 B 

00 

790 CLS #0:PRINT#O:PRINT#O,'Ecris le C.0 
.D.- METTONS-NOUS D'ACCORD -":PRINT#0,°T 

u {criras un nos sans son d{tersinant, 

sinon la r{ponse sera refuse 





par le progranse, ":PRINT#0,* 
VAS-Y, "2 INPUT#0," ",gk#lils 
GOTO 810 
800 CLS#O:PRINT#O:PRINT#0 'Ecris le nos 
resplact par Le pronos COD,":PRINT#0," I 
L'est inutile d'{crire l'article, 
sinon la r{ponse sera refus{e":PRINTÉ 
0," VAS-Y":INPUT#0," ",gk#ti)s6 
070 810 
810 IF gk#li)=repgk#li) THEN 6070 820 E 
LSE 60TD 790 
820 PRINTHI,gk#li)iCLS HO:LOCATE#O,2,3: 
PRINT#0, "Le C.0,D, est-il plact avant 1 
e verbe?":PRINTHO:PRINTHO:INPUT#O,"  R{ 
ponds par oui / non. ",avant#(i) 
830 IF avant#li)#repavanté(i) THEN 60TO 
850 ELSE G0TO 840 
840 PRINT40, "Ce n'est pas exact;la bonne 
riponse est "yrepavantéli 
850 IF repavant#(i)="oui" THEN PRINT#1," 
le COD est plact avant le verbe.": ELSE 
PRINT# "le COD est plact apr)s le verbe 


860 INPUT 40,"D'apris La règle, ce parti 

cipe passt peut-il s'accorder “jaccordé( 

i) 

870 IF accord#li){)repaccord$(i) GOT 89 

0 ELSE 60TO 880 

880 IF accord$li)zrepaccord#{i) THEN CLS 

#0:PRINT #0,"D'ACCORD,ON REPREND.":FOR À 

=] TO SOOO:NEXT A:PAPEREI,0:CLSHO: CLS: 
60TO 630 

890 CLS#0:PRINT#0," LE PARTICIPE PASSE, e 

aployt avec Avoir, S'ACCORDE AVEC LE C.0 

.D, 51 CE DERNIER EST PLACE AVANT LE VE 

RBE;":PRINT#0," IL NE S'ACCORDE JAMAIS 8 

1 LE C.0.D EST PLACE APRES LE VERBE OU 

S'IL N'Y À PAS DE C,0,D.":FOR azl TO 700 

O:NEXT as 

900 CLS#01#azfati:G0TO 860 

910 6OSUB 1080:FDR j=1 TO 10000:NEXT j:C 

LS:PRINT 2 PRINT:PRINTIPRINT'L'ENERCICE E 

ST TERMINE, "16070 50 

920 END 

930 ‘ ETITYICIDPIIIITIIDIIPELI III LIL IELE 

##+###4 fenetres 

940 MODE 1:NINDON#2,1,40,1,5:PAPER#2,11P 

EN42,0:WINDOW#1,1,40,6,10:INDON#0, 1,40, 

11,21:NIND0N86,5,35,22,231PEN#6 ,01PAPERD 

6,1:WINDOW#3,1,40,6,24 

950 RETURN 

960 ‘ HRRRERAERRRREEERRERERNERRE prese 

ntation accents 

970 CLS#6:PRINTRÉ:PRINT#6 "Ecrire en sin 

uscules accentutes avec Le pavt nuatr 

ques ":PRINTHE," {=s7p)s=#0p\s 
1 "aPRINTÉ6," Terainer par DENTER(" 

980 RETURN 

990 ‘ HSSRAÉERHERSERÉEESERRÉÉEREÉEE 00 

nu HHHHHHE 

1000 LOCATE#4,3,3:PRINT#4, "Accord du Par 

ticipe Passt avec AVOIR":PRINT#4:PRINT#4 
1010 LOCATE#4,19,6:PRINT#4, "MENU" 

1020 LOCATE#4,1,8:PRINT#4," VOIR LA REGL 

E D'ACCDRD sesssssssssss 1" 

1030 LOCATE#4,1,10:PRINT#4," FAIRE UN EX 

ERCICE sesscescoooooovoos 2° 

1040 LOCATE#4,1,12:PRINT#4," ARRETER LE 

PROGRAMME .4osssscccooss 3" 

1050 LOCATE#4,1,14:PRINT#4," CHANGER LES 


PHRASES DE L'EXERCICE .. 4" 
1060 LOCATE#4,3,17: INPUT#4, "Pour choisir 
taper le chi 

ffre-code puis )ENTREE( ",CHOIX 

1070 CLS#4:0N CHOIX 6070 60,310,920,1200 
1080 ‘ HRÉHHENEEEEHEEHHEHHES bilan de 
"exercice 

1090 CLS#1:CL5#0 

1100 PRINT#1,STRING#(40,"#"):PRINTH ," 
BILAN DE L'EXERCICE":PRINT#I ,STRINGS(40, 
“#")! 

1110 bzi-f:PRINT#0:PRINT#0, "Nosbre de ph 
rases {tudites ..,,,: "aLOCATE#0,34,2:PR 
INTHO,1:PRINT#0:PRINT#0, "Nbre de bonnes 
r{ponses directes: ":LOCATE#0,34,4:PRINT# 
0,b 

1120 y=INT((b/i)#100) 

1130 PRINT#O:PRINT#0,"Efficacit{ personn 
elle ..,.,,..,1 *{LOCATE#O,34,6:PRINT#0, 
y;"2" 

1140 IF #C)0 GOTO 1150 ELSE GOTO 1190 
1150 PRINT#0:PRINT#0,"Nosbre d'appels & 
l'aide 0,41 "#LOCATERO,34,8:PRINT#0, 
f 

1160 IF fzfa THEN 2#100:60T0 1180:ELSE 6 
OTO 1170 : 

1170 fxz(f-fa):zs3INT((fx/f)#100) 

1180 PRINT&O:PRINTÉO,'Efficacit{ de cett 
e aide 4,4 "ALOCATE#O,34,10:PRINT#0 
2j"t" 

1190 PRINT#0: INPUT#0,"iaprisante oui / n 
on ( + enter)",t#it#=UPPERS(t#)1 IF téz"N 
ON" THEN 6070 50 :ELSE G60TO 1195 

1195 CLS #0:PRINT#0," BRANCHEZ L'IMPRIMA 
NTE,PUIS REPONDEZ AUX QUESTIONS":LOCATES 
0,2,8:PRINT#O,"terainer par )ENTER(":LOC 
ATE80,2,4: INPUT#0, "Nos et prnon “,n$iL0 
CATE#0,2,6: INPUT#0, "quelle est la date ( 
jj/aa/aa) ",d$ 

1197 PRINT#B,"GRAMM'AIDE - ACCORD DU PAR 
TICIPE PASSE AVEC AVOIR":PRINTRB:PRINT#8 
'Ellve : "yn$s" date :"1d$ 

1198 PRINT#B, "Exercice No ";C6;" Nosbre 
de phrases :";i:PRINT#8,"Nosbre de bonne 
s rtponses directes : "yb:PRINT#B,"Effic 
acit{ personnelle : "ÿy3" L':PRINT#B, "No 
abre d'appels & l'aide : "yÿfiPRINT#B,"Ef 
ficacit{ de cette aide & "ÿ23" L'a60T0 5 
0 

1200 " HRHHHEHEHHESHHEIEIHHE podifier le 
S phrases FRFHHHHHEFHH 

1210 MODE 2:PRINT" Cossent sodifier les 
phrases ? voici l'ordre des {l{aents @ t 
aper :" 
1220 PRINT STRING$(68,"-") 
1230 PRINT&PRINT" guillesets + phrase av 
ec p.pass( entre ( ) + ferser guilleset 
s + virgule":PRINT:PRINT‘le participe pa 
sst accord{ (ou non) + virgule ":PRINT:P 
RINT® oui ou non + virgule (prisence d'u 
n cod)" 
1240 PRINT:PRINT"{ ou 2 + virgule (code 
pour COD pronos ou nos )° 
1250 PRINT:PRINT® taper le non COD ou le 
nos resplac{ par le pronos COD + virgul 
e ":PRINT:PRINT" taper oui ,non + virgule 
{ cod avant le verbe ?)":PRINT:PRINT"ta 
per oui ou non sans virgule (accord ou n 
on ?) 


1260 LOCATE 1,17: PRINT STRINGS(80,"-"): 
PRINT'AVANT DE COMMENCER LA MODIFICATION 
DANS LES DATAS DU PROGRAMME ,PREPAREZ TO 
UT SUR UNE FEUILLE DE PAPIER. CHAQUE EXE 
RCICE COMPTE 7 PHRASES, " 

1270 LOCATE 1,23:PRINT" Appuyer sur C p 
our continuer jsur M pour retourner au 
senu"! 

1280 D$=INKEYS:1F D$="" THEN 1280 

1290 IF D$ ="C" OR D$ s"c" THEN 6010 131 

0 

1300 IF D$ ="M" OR D$ ="s" THEN G0TO 50: 
ELSE CLS:60T0 1270 

1310 CLS:LOCATE 13,2:PRINT"TOUT EST PRET 

?" aLOCATE 2,4:PRINT"Taper EDIT + nuatro 
de la ligne @ sodifier":PRINT:PRINT"po 

ur l'exercice 1,lignes No 350 @ 410":PRI 

NT SPC(7); "exercice 2,lignes No 420 & 48 

0 "PRINT SPC(7);"exercice 3,lignes No 4 

90 & 550" 

1320 PRINT:PRINT"Les nuatros de lignes s 

e succ)dent de 10 en 10," 

1330 PRINT:PRINT" Effacer l'ancienne phr 

ase avec la touche )CLRÇ placte sous la 

preaidre lettre ; taper les nouvelles do 

nntes et appuyer sur La touche )ENTER(": 

PRINT"Appeler une nouvelle ligne etc .. 


1340 PRINT: PRINT"Quand c'est terain(,ta 
per RUN pour virifier les sodifications 
avant de faire un nouvel enregistresent 
{l}ve qui sera protig{ pour interdire 1° 
acc}s aux r{ponses": 

1350 PRINT" POUR REVENIR AU MENU ..,,... 
600 TAPER M" :PRINT" POUR REVOIR LES E 
XPLICATIONS .,.,,,,,, R':PRINT" POUR C0 
MMENCER LES MODIFICATIONS,..... .F" 

1360 D$=INKEYS: IF D$="" THEN 1S60:ELSE 6 
OTO 1370 

1370 IF D$="F" OR D$="f" THEN PRINT'ALLE 
1-Y,,,"4END:ELSE 1380 

1380 IF D$="M" OR D$s"a" THEN MODE 1:60T 

0 990:ELSE G0T0 1390 . 

1390 IF D$="R" OR D$="r" THEN G0TO 12004 
ELSE CLS:60T0 1350 

1400 REN ,,,,.,,,,..accentuation francai 
se et cedille .,,,,.esssssusssse 

1410 REN accents 

1420 SYMBOL AFTER 64 

1430 SYMBOL 125,U60,410,43C ,kb6,L7E 60, 

ui 

1440 KEY 135,CHR#(123) 

1450 SYMBOL 123,46,4B,L3C,L66,&7E GO, LS 

C 

1460 KEY 128,CHR$(125) 

1470 SYMBOL 64,460,410,478,&C,&7C, ROC ,k7 

b 

1480 KEY 129,CHR$ (64) 

1490 SYMBOL 92,40,40,L3C, LB, &bO,LIE,L8, 

u18 

1500 KEY 132,CHR$ (92) 

1510 SYMBOL 124,430,48,Lbb,L66,Lbb tb, k 

JE 

1320 KEY 137,CHR$(124) 

1530 SYMBOL 94,418,424 

1540 KEY 134,CHRS(94) 

1530 SYHBOL 93,410, 432,438, LOC, L3B,&10,& 

90,460 

1580 KEY 131,CHR$(93) 

1570 RETURN 











Didier LE MEN 





Que ceux qui n'ont jamais eu 
envie de regarder leurs dis- 
quettes au fond des octets 
me jettent le premier bug qui 
leur tombe sous la main. SEC- 
TORY + permet, en effet, de 
décortiquer votre 
préféré. 


L'écran comporte six fenêtres, dont 
les fonctions sont les suivantes : 

— Fenêtre en haut, à gauche 
COMMANDES en clair, repérées 
par un numéro. 

— Fenêtre en haut, à droite : IN- 
FOS piste, secteur, page et lec- 
teur. 

— Fenêtre du milieu : AFFICHAGE 
du buffer de lecture secteur, (2 pa- 
ges). 

— Fenêtre en bas, à gauche : FOR- 
MAT de la disquette lue. 
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support‘ 


— Fenêtre en bas, à droite : INFOS 
phase résultats du FDC. 

— Fenêtre en bas, au milieu : MES- 
SAGES divers. 


Description des commandes 


- Touches curseur HB : 

Permettent de pointer n'importe 
quelle piste. 

- Touches curseur DG : 

Idem HB, pour les secteurs. 

- Touche 0': | 
Affiche page 0 ou page 1 du buffer 
de lecture secteur. 

- Touche‘: 

Commutation lecteur À ou lecteur 
B. 

- Touche"‘1': 

Lit le secteur pointé et en sort le 
contenu dans la fenêtre centrale. 

- Touche"2': 

Ecrit le secteur pointé avec le conte- 


SECTORY + 


nu du buffer, après une confirma- 
tion de sécurité. 


: . Touche'3': 


Modifications : affiche la page 0 du 
buffer, une flèche clignotante indi- 
que l'octet pointé. Déplacer cette 
flèche avec les touches curseur, 
sur l'octet visé, (mode déplace- 
ment) et taper ENTER (mode écri- 
ture). Taper ensuite la nouvelle 
valeur, en héxa, puis ENTER. Pour 
sauter un octet sans sortir du mode 
écriture, taper simplement ENTER. 
Pour sortir du mode écriture, pres- 
ser CTRL et ENTER. Pour sortir de 
l'option MODIF. taper ‘3 en mode 
déplacement. Dans ce mode, on 
peut commuter page 0 ou 1 avec la 
touche 'O'. 

- Touche ‘4: 

COPY : copie de pistes (maximum 
5) avec lecteur. Quatre formats sont 
proposés, IBM, Data-only, Vendor 
et Non standard. Il faut donc connaî- 
tre le format de la disquette source 
et formater la disquette destination 
en conséquence. 

- Touche '5': 

DIR : affiche le catalogue de la dis- 
quette. 

- Touche'6': 

FORMAT : formatage de pistes iso- 
lées (ou de la disquette entière) en 
format IBM, Data-only, Vendor ou 
Non standard. Cette dernière op- 
tion permet d'affecter des numéros 
de secteur différents des trois stan- 
dards, (protection de programmes). 

- Touche'7': 

BLOC : calcule les numéros de 
piste et de secteur d'un bloc dési- 
gné par son numéro en héxa, en. 
fonction du format. 

- Touche'8': 

ID secteur : lit le premier champ ld 
secteur rencontré sur la piste poin- 








CPC AMSTRAD 














Abonnement-essai 
AMSTAR 
PCompatible Magazine 























<RAUURR ONE 7 CONS 


CPC - REVUE DES UTILISATEURS D'AMSTRAD 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et vous recevrez gra- 
tuitement six numéros hors série (un tous les deux mois). 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD -— des programmes, des arti- 
cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatible MAGAZINE : sortie prévue du numéro 1 mensuel le 13 février 1987. 


Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux livres ! 


180F 
104F 
55F 
100F 
200 F 


11 numéros 
6 numéros 
3 numéros 

11 numéros 

11 numéros 





: en vous abonnant, 


A renvoyer à 
CTe}7.\ee) |] 
Service Abonnement 
BP 11 — 35170 BRUZ 









vous recevrez 














NOM Prénom _ 
Adresse = 

Code postal Ville 

Date Signature — 





copie. 





Merci d'écrire en majuscules 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photo- 














tée à l'activation de la tête de lec- 
ture et affiche en bas, à droite, les 
trois registres d'états du FDC, (STO, 
ST1, ST2), ainsi que les numéros 
de piste (TRK: en héxa), de secteur 
(SC:), et la taille de celui-ci (SIZ:), en 
multiple de 255. (Utile uniquement 
aux spécialistes). 

-* Touche 9": 

SAV : non, cela ne veut pas dire 
Service Après Vente ! SAV : sauve- 
garde d'un secteur, (celui en mé- 
moire) sous forme de fichier binaire. 
Entrer huit caractères maxi; le sec- 
teur est sauvé sous le nom 
'XXXXXXXX. SCT". 


Parmi toutes ces options, seule la 
troisième (MODIF) demande un 
peu de pratique, mais on s'y fait très 
vite. 

Le programme se décompose en 
trois parties. Présentation, mise en 
page et chargement des codes ma- 
chine. Une boucle de commandes 
et les sous-programmes options et 
enfin le traitement des erreurs dis- 
quette. Cette partie indique dans la 


fenêtre centrale du bas, toutes 
(enfin j'espère !) les causes d'erreur 
en lecture et en écriture. Par exem- 
ple, FORMAT NON STANDARD. 
D'ailleurs, si une telle erreur est 
rencontrée, le programme deman- 
de si le code correct est connu. 
Dans la négative, il est possible d'et- 
fectuer une recherche des numé- 
ros de secteurs, (limités à 9). Atten- 
tion, pour cette recherche, le nom- 
bre de tentatives de lecture est 
ramené à 1 (normalement 10). Il se 
peut donc que sur de vieilles dis- 
quettes, certains secteurs échap- 
pent au programme. Veillez donc à 
la qualité des disquettes que vous 
protégerez avec ce système. 

La partie langage machine com- 
prend trois routines. En A000, rou- 
tine de lecture-écriture secteur et 
recherche de piste. En A050, rou- 
tine de détermination du format. En 
A100, dump mémoire du buffer de 
lecture. 

Pour conclure, j'espère que ce 
petit utilitaire vous rendra autant de 
services qu'à moi, comme par exem- 


ple, ressusciter des programmes 
effacés ou protéger vos disquettes 
des regards indiscrets. 


50 OPENOUT"D":MENDRY HINEN-1:CLOSEOUT 
60 PEN#1,1:PAPER#1 ,0 

70 MEMORY 4&2FFF:60SUB 1830 

dO PEN#1,0:PAPER#1 ,1 


90 PISTE=0:SECTEUR=1 :PAGE=0: LECTEUR=0 
100 POKE &B4EB,255:POKE UBE78,255 

110 KEY DEF 11,1,&3B:KEY 141,"r"+CHR$ (13 
D:KEY DEF 18,0,13,13,141 

120 RE 

130 REA 


150 IF LECTEUR=0 THEN LECT$="A" ELSE LEC 
T$="B" 
160 cad$="1234587890, "+CHRS (240) +CHR$ (24 





1)+CHR$(242)+CHR$ (243) 

170 ON ERROR 6070 1390:0N BREAK GOSUB 13 
70 

180 POKE &A019,0:POKE &AO1A,&90 

190 LOCATE#2,2,2:PRINTE2, "Piste: "::PRINT 
#2,USING "#H'ipistes;:PRINT#2," Sect:";1P 
RINT#2, USING "#"ssecteur; :PRINT#2," Page 
t"pages"Lect:"s;lect$; 

200 A$=INKEYS:LOCATE #1,45,1:PRINTHI,CHR 
#(247) ;:LOCATE#,45,1:PRINT#1," "3slF X$ 
="* THEN G0TO 200 

210 ON INSTRIcad$,x$} G60SUB 230,360,4i0, 
670,840,870,1120,1750,1770,1090,1340,118 
0,1210,1240,1290 

220 60T0 150 


1 240 POKE &A023,&B4:PAGEz0:POKE &A110,&90 
:LOCATE 42,23,2:PRINT#2,page 

250 POKE &A023,&87:POKE &AO13,LECTEUR: PO 
KE &AO15,PISTE:CALL &A000: IF PEEK(&AO4B) 
(30 THEN POKE &A023,484:6070 1410 ELSE P 
OKE &A023,4B4 

260 CALL &A0S0:60SUB 1680:1F PEEK(4A04B) 
(39 THEN POKE &A023,484:60T0 1410 ELSE S 
ECTæ(secteur-1)+PEEK(LAB9F+1ecteur#k40) 
270 IF ID=i THEN ID=02RETURN 

280 IF PEEK(LAG9F)s1 THEN FORM#="  IBN 


290 IF PEEK(RAB9F)ek 4 THEN FORH$=" STAN 
DARD " 

300 IF PEEK(&AB9F)=KCI THEN FORH$=" DATA 
ONLY 


310 CLSHSILOCATE #5,2,2:PRINTES ,fora$yil 
F COPY=1 THEN COPY=0:RETURN 

320 POKE &A013,lecteur:POKE &A015,piste: 
POKE 4A017,SECT 

330 CALL &A000:1F PEEK(&AO4B)()0 THEN PO 
KE &A023,kB4:60T0 1410 

340 IF writflags1 THEN writflag=0:POKE & 
023,484: CLS#4: RETURN 

350 CALL &A100:RETURN 


370 CLS#4:PRINTHA:PRINT#4," # ECRIRE # 
confiraez (D/N)";CHR$(7); 

380 x$=INKEYS: IF x$="" THEN 3B0 

390 IF x$<)"0" THEN CLSH4:RETURN 

400 writflag=1:POKE LAO23,&B3:G0TO 260 
410 REN 


420 pagez1:60SUB 1090 

430 CLS#4:LOCATE #4,1,2:PRINT#4,"HODIFIC 

ATIONS Mode : Deplacesent" 

440 hi=B:vi=2 

450 x$=UPPERS(INKEYS):LOCATE #3,h1-1,vis 

PRINT#3,CHR#(243):FOR t=0 TO 20:NEXT:LOC 
ATE #3,h1-1,v{:PRINTES,CHRS (128): IF x$=" 
" THEN 450 

460 IF x$=CHR$(240) THEN vizvi-111F vi<2 
THEN vi=2:6070 450 

470 IF x$=CHR$(241) THEN visvi+i:1F vi)1 
7 THEN vi=17:6070 450 


480 IF x$=CHR$(242) THEN hizhi-3:1F h1(B 
THEN h1=8:607T0 450 

490 IF x$=CHR$(243) THEN hi=h1+3:1F h1)S 

3 THEN h1=53:607T0 450 

500 IF x$=CHR#(13) THEN GOSUB 540 

510 IF x$="0" THEN GOSUB 1090 

320 IF x$="3" THEN CLS#4:RETURN 

530 60TO 450 

540 ‘ sode ecriture -- 


330 LOCATE #4,24,2:PRINT#4 "Ecriture 


360 h=hi:vzv! 

370 IF page=1 THEN bufadr=&9100 ELSE 
bufadr=&9000 

580 LOCATE #3,h,viLINE INPUT#3,pnb$ 

390 IF nbf="" THEN h=h+3:607T0 640 

600 IF nb$="r"THEN vi=VPOS(#3)1h1=POS (43 
)-LiLOCATE #4,24,2:PRINT#4,"Deplacesent* 
1CALL LALOO: RETURN 

610 nbi$sLEFT$(nb$,2)1adrebufadr+(((VPOS 
(#9)-2)#18)+(FIX((POS(#3)-8)/3))) 

620 nb=VAL("&"+nb1$):POKE adr ,nb 

630 h=h+3 

b40 IF h)54 THEN h=8: vzv+#i 

650 IF v)17 THEN ve2 

660 LOCATE #3,h,v:607T0 570 

670 REM 


680 CLSHSICLSRAICLSES 

890 PRINT#S:PRINTES," INSEREZ LE DISK S0 
URCE et pressez une touche":CALL &BB06 
700 RFLAB=01CLS#S:PRINTES INPUT 43,7" PR 
ENIERE PISTE: ",CPP:INPUT #3," DERNIER 
E PISTE: ",CDP:1F CDP-CPP)S THEN 700 

710 INSTRUCTION=484: MH=9 

720 INPUT #3," FORMAT DES PISTES (Iba,St 
andard,Data-only,Non standard):",FP$ 

7130 IF FP$2"!" THEN MHzB 

740 IF FP$C)"N" THEN COPYz1:PISTE=CPP:60 
SUB 23011F PEEK(&AO4B)()0 THEN RETURN EL 
SE FOR I=1 T0 MH:1S(1)= (PEEK (KAB9F+ (LECTE 
UR#B4))-1)+1:NEXT: 60TO 760 

730 FOR I=i TO 9:PRINT#S," Code secteur 
"ylys INPUT 83,"4",SECT#:S(1)eVAL ("&"+SEC 
TS)INEXT 

760 POKE &A023, INSTRUCTION: BUFF=430 

770 FOR CPISTE=CPP TO CDP:POKE &A015,CPI 
STE 

780 FOR CSECT=1 TO MM:POKE &A017,S(CSECT 
):POKE &AOIA,BUFF 

790 CALL &A000:1F PEEK(&AO4B){)0 THEN 14 
10 

800 BUFF=BUFF+21NEXT CSECTINEXT CPISTE 
810 IF RFLAG=1 THEN POKE &AO23,484:POKE 
LAOLA ,&90:CLSH4:CLSES:CADS= "RNACDFPB"+CH 
R$(240)+CHR$ (241) +CHR$ (242) +CHR$ (243) +°L 
"#RETURN 

820 PRINTES:PRINT#3," INSEREZ LE DISK DE 
STINATION et pressez une touche":CALL &B 
B04 

830 INSTRUCTION=U85:RFLAG=1:60T0 760 

840 REM ------------ races CATALOG 





850 CLS #3:WINDOWN SWAP 3,0:0DIR:WINDON S 
WAP 3,O1RETURN 

860 REM ---------.s 

870 CLS #3:WINDON SWAP 3,0:MM=9 
880 LOCATE 2,2: INPUT; "Presiere Piste :", 
#pp:INPUT;" Derniere Piste :",fdp 

890 IF fpp(0 OR #dp>39 THEN 880 

900 adr=&A027:POKE &AO19,427:POKE LAOÏA, 
KAO:'FTAB ds HL 

910 LOCATE 2,4: INPUT; "Type De Forsat (Ve 
ndor ,Data only,1ba,Non standard) :",tf$s 
auz9IF INSTRI"VDIN",TF$)=0 THEN 910 

920 IF t##u"V" THEN nsat40 

930 IF tf$="D" THEN ns=&C0 

940 IF tf$="]" THEN ns2k01anz8 

930 IF t##="N" THEN G0TO 1050 

960 FOR ie TO assnslilens+iiNEXT 

970 POKE &A023,&Bb:CLS:t=0: ‘No tete 

980 FOR i=1 T0 ee k 
990 POKE adr+1,t:POKE adr+2,ns(i}:POKE à 
dr+3,2:1F i= THEN POKE 4&AO17,ns(1) 

1000 adr=adr+4:NEXT i 

1010 FOR pzfpp T0 #dp:POKE LAO1S,ptadrzt 
A027:FOR is1 T0 aa:POKE adr ,pradr=adr+4s 
NEXT 

1020 LOCATE 10,10:PRINT"FORNATAGE EN COU 
RS PISTE : "sP 

1030 CALL &AOOO:1F PEEK(LAO4B)()0 THEN N 
INDOW SWAP 3,0:POKE LAO23,&B4:POKE &A019 
,0:POKE LAOIA,490:607T0 1410 ELSE NEXT p 




























1040 NINDON SWAP 3,0:POKE &AO19,0:POKE k 
AOIA,&90:POKE UA023,&B4:CLSES:RETURN 
1050 * 

1060 FOR I=1 TO MA 

1070 PRINT:PRINT"CODE SECTEUR "313" "ÿ"N 
0 2'$eLINE INPUTINS#iNS(I)=VAL ("&"+NS$) 
1080 NEUT 1:60T0 970 

1090 REM -------"".cs 
1100 IF page=0 THEN pagez1:POKE &A110,49 
1 ELSE page=0:POKE &A110,490 

1110 LOCATE #2,23,21PRINT#2,pageptCALL k 
AIOO1RETURN 

1120 REM -------.snse 

1130 CLS#4:LOCATE #4,2,2:PRINT#4, "No Blo 
ci"siLINE INPUT #4,5B$:B=VAL("&"+B$):M=9 
1140 IF PEEKI&AB9F)=&C1 THEN SECTCNT=(Bs 
2) ELSE SECTCNT=(B#2+18) 

1150 IF PEEKILAB9F)=1 THEN SECTCNT=(B#2+ 
16)1M=8 

1160 TR=FIX(SECTONT/M):SEC=SECTENT MOD M 
+! 

1170 PRINT#4," 
1" 5 SEC; :RETURN 
1180 REM ----------.. 

1190 pistez-(piste(39)+piste+((pistez39) 
#39):1F piste(10 THEN 1oh=8 ELSE 1oh=7 
1200 LOCATE#2,1oh,2:PRINT#2,piste:FOR t= 



















PISTE:"{TR;" "J"SECTEUR 













0 TO 100:NEXT:IF INKEY(0)=0 THEN 1190 EL 
SE RETURN 
1210 REM 


1220 pistez(piste>0)+piste+(-(piste=0)#3 
9):1F piste(10 THEN Loh=8 ELSE 1oh=7 
1230 LOCATE#2,10h,2:PRINT#2,piste:FOR t= 
0 TO 100:NEXT:IF INKEY(2)=0 THEN 1220 EL 
SE RETURN 

1240 REA 


1250 secteur=(secteur>1)+secteur+(-(sect 
eurs{)#(PEEK(KABAO+(lecteur#b4))-1)) 
1260 LOCATE #2,15,2:PRINT#2, secteur 

1270 IF secteur=9 THEN 6070 1210 

1280 FOR t=0 T0 100:NEXT:1F INKEY(8)=0 T 
HEN 1250 ELSE RETURN 

1290 REM 


1300 secteur=-(secteur(9)+secteur+{(sect 
eur=9)#(PEEK(&ABAO+(lecteur#64))-1)) 
1310 LOCATE #2,15,2:PRINT#2, secteur 

1320 IF secteur:1 THEN 60T0 1180 

1330 FOR t=0 TO 100:NEXT:1F INKEY({)=0 T 
HEN 1300 ELSE RETURN 

1340 REM 


1350 IF LECTEUR=0 THEN LECTEUR=1 ELSE LE À 


CTEUR=0 
1360 RETURN 
1370 REM 


1380 POKE &BE78,0:MODE 2:END 
1390 REM 


1400 PRINTH4:PRINT#4," ERREUR: ";ERR;CHR 
$(7)4FOR Te0 TO 2000: NEXT:CLSHA: RESUME 1 
50 

1410 REM 


1420 SOUND 1,50,7,5,0,0:SOUND 1, 

,0:SOUND 1,30,7,5,0,0: SOUND 1,20,7, 

1430 GOSUB 1680 

1440 CLSH4:ERFLAG=PEEK (&AO4B) AND &7F:LO 

CATE #4,2,2 

1450 IF (ERFLAG AND 4&4B)«448 THEN PRINTE 

4,"PAS DE DISK DANS LE LECTEUR !!"3: 
60TO 1670 

1460 IF (ERFLAG AND &42)=&42 THEN PRINTS 

4," DISK PROTEGE EN ECRITURE !!":607T0 187 

0 

1470 IF (ERFLAG AND &4i)=k41 THEN PRINTE 

4,"D1SK NON FORMATE":60T0 1670 

1480 IF (ERFLAB AND &6O)=kb0 THEN PRINT 

4, "SECTEUR ILLISIBLE !!!*}:60T0 1670 

1490 IF (ERFLAG AND k44)=&44 THEN PRINTÉ 

4, "FORMAT NON STANDARD !!":FORM$="Non St 

andard'iLOCATE #5,2,2:PRINTS for af; : GOT 

0 1510 

1500 PRINT#4, "ERREUR NON REPERTORIEE !!! 

1":607T0 1870 

1510 CLSAS:LOCATE #3,2,2:PRINT#S, "CONNAI 

SSE2 VOUS LE CODE SECTEUR CORRECT (0/N)* 


y 

1520 1$=INKEYS:IF 1$="" THEN 1520 

1530 IF 2$="0" THEN LOCATE #3,2,4: INPUT 
#3,;"CODE EN HEXA:",SECTS$:SECT=VAL ("&"+S 
ECT#):CLS#3S:CALL 4&A0S0:60SUB 1680:60T0 3 
10 

1540 LOCATE #3,2,4:PRINT#S, "VOULEZ UNE R 
ECHERCHE DES CODES DE CETTE PISTE (O/N)" 


y 

1550 I$=INKEYS:IF 2$="" THEN 1550 

1560 IF 2$="N" THEN CLS#4:CLS#3: RETURN 
1570 CLS#3:CLSH4:LOCATER4,2,2:PRINTH4,"R 

ECHERCHE EN COURS essai code: " 

1580 POKE 4AO23,&84:POKE LAO13,DRIVE:POK 

E kA015,PISTE 

1590 POKE &BEGG,1:PRINT #3: TROUVE=0 

1600 FOR S=0 TO 255 

1610 LOCATE #4,33,2:PRINT#4,HEX$(S) 1POKE 
&A017,5 

1620 CALL &A000:1F (PEEK(&AO4B) AND k44) 
=k44 THEN 60TO 1650 

1630 SOUND 1,30,3,15,0,0:PRINT #3," Code 
s "yHEX#(S) 

1640 TROUVE=TROUVE+111F TROUVE)B THEN 16 
bù 

1650 NEXT S 

1660 POKE &BEb6,10:CLS 4: RETURN 

1670 LOCATE #4,2,3:PRINT#4,"PRESSEZ UNE 
TOUCHE": CALL 4BBOG:CLSH4:CLSES: RETURN 
1680 REM ID SECT - 


1690 CLS#B:RESTORE 1740: X1=&BE4C 

1700 FOR X=2 TO 7:READ AS$:PRINT#6," "3:18 
3HEX$(PEEK(X1)); 

1710 X1=\1+1:1F X1z4BES0 THEN 1710 

1720 IF X=4 THEN PRINT#6 

1730 NEXT:RESTORE : RETURN 

1740 DATA "STO:","STIs","ST2:" ,"TRK:","S 
C:","SIL:" 

1750 REX 

1760 1D=1:60T0 250 


1780 CLS#4:PRINTS#4," 
R' 

1790 INPUT#4," NOM: ",FILES 

1800 IF FILE#="" THEN CLS#4:RETURN 

1810 IF LEN(FILES))8 THEN PRINT#4,CHR$(7 
1316070 1780 

1820 FILES$=FILES+", SCT": SAVE FILES,B,&90 
00,4200:CLSH4: RETURN 

1830 REM 


SAUVEGARDE SECTEU 


1840 MODE 2:INK 1,02INK 0,221BO0RDER 22 
1850 SYMBOL 255,127,63,31,15,0,0,0,0 
1860 LOCATE 30,12:PRINT"SECTORY+ DLM 198 

6":LOCATE 35,14: PRINT'INITIALISATION" 
1870 GOSUB 2050:F0R Tz0 TD 2000:NEXT: INK 
1,22 

1880 FOR Ii TO 2S:PRINT STRING6$(80,207) 
JeNEXT 

1890 WINDON#1,1,45,1,2:WINDON#2,48,79,1, 

21MINDONES,3,76,4,21 

1900 WINDON#4,16,56,23,241WIND0N8S,1,14, 











23,24: WINDON#6,58,79,23,24 
1910 FOR N=1 TO B:CLSBN:NEXT:NINDONES,4, 

76,4,21 

1920 PRINT CHR$(22)CHR$ (1); :LOCATE 2,3:P 

RINT STRING$(45,131):LOCATE 46,2 

1930 PRINT CHR$(143):LOCATE 46,1:PRINT C 

HR$(215) 

1940 LOCATE 49,3:PRINT STRING$(32,131);: 

LOCATE 80,2:PRINT CHR$(145) 

1950 LOCATE 80,1:PRINT CHR$(215) 

1960 LOCATE 4,22:PRINT STRING$(74,191)ge 
FOR 1=5 T0 21:LOCATE 77,1:PRINT CHR$(143 
}:NEXT:LOCATE 77,4:PRINT CHR#(215) 

1970 LOCATE 2,25:PRINT STRIN6$(79,191);: 
LOCATE 80,24:PRINT CHR$(143);:LOCATE 80, 
23:PRINT CHR$(215); 

1980 LOCATE 1,3:PRINT CHR$(255):LOCATE 4 
8,3:PRINT CHR$(255):LOCATE 3,22:PRINT CH 
R$(255)1LOCATE 1,25:PRINT CHR$ (255) 

1990 PRINT CHR$(22)CHR$(0)ÿ:LOCATE 15,23 
PRINT CHR$(148):LOCATE 57,23:PRINT CHRS$ 
(14B):LOCATE 15,24: PRINT CHR$(1491):LOCAT 
€ 57,24:PRINT CHR$(149) 

2000 PRINT#I:PRINT#1," Lire Ecrire Modif 
Copy Dir Fors Bloc Id Sav" 

2010 LOCATE#,1,1:PEN#1 ,0:PAPERHI,1:PRIN 
TH," 1 2 J 4 5 6 7 

8 9  "s;:PEN#I,1:PAPER#I,0 

2020 PRINT#2:PRINT#2," Pistes  Sect: 
Page: Lect:" 

2030 LOCATE#2,1,1:PEN#2,0:PAPER#2, 1: PRIX 
T#2," "CHR$(240)" "CHR$(241)" *CHRS$ 
(242) "CHR$(2493)" 0 "CHR$S (144) 
"y: PEN#2, 1: PAPER#2,0 

2040 BORDER 114INK 1,0:RETURN 

2050 REM ---------"-"--" 



































2060 RESTORE 2120 
2070 FOR AxWA000 TO LAO23:READ DS:POKE À 
VAL ("RM 4#DS):NEXT 

2080 FOR Az4A0S0 TO LAOS9:READ DS:POKE À 
VAL ("RM #DSI:NENT 

2090 FOR AzuA100 TO LAIBOIREAD DH:POKE À 
VAL ("4"+D$) :NEXT 

2100 RETURN 

2110 REM ===" 

2120 DATA AF,32,4B,40,21,23,0,CD,D4,BC, 
D0,22,24,40,79,32,26,80,1E,00,18,00,0€ 
2130 DATA 00,21,00,90,DF,24,40,D8,32,48, 
40,C9,84,0F,56,A0,D8,18,C9,80,C5,07,87 
2140 DATA 3E,03,CD,B4,BB,CD,6C,BB,21,02, 
01,00,75,88,21,00,90,E5,06,10,3E,20,CD 
2150 DATA SA,88,7C,CD,64,A1,70,CD,64,A1, 
3€,20,C0,54,BB,3€,20,CD,5A,BB,7E,CD,64 
2180 DATA A1,23,10,F4,E1,3€,20,CD,5A,BB, 
3€,20,0D,5A,BB,06,10,7E,CB,BF,FE, 20, 30 
2170 DATA 02,3E,2E,C0,5A,B8,23,10,F1,E5, 
CD,78,BB,70,FE,11,E1,C8,E5,3E,00,CD, SA 
2180 DATA BB,3E,04,CD,5A,BB,18,4E,5F ,0F, 
0F,0F,0F,E6,0F,CD,75,41,7B,E6,0F ,CD,75 
2190 DATA A1,C9,FE,04,38,02,C6,07,C6,30, 
CD,5A,BB,C9,44,4C,40@ 
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640 DATA 0,11,12,0,13,1,2,13,14,2,1,14,0 
,11,12,0 

850 DATA 0,11,12,0,13,15,18,13,14,17,18, 
14,9,11,12,0 

860 DATA 0,11,12,0,13,3,4,13,14,5,6,14,0 
,11,12,0 

870 DATA 11,0,0,12,18,0,0,17,18,0,0,15,1 
1,0,0,12 

680 DATA 13,18,17,13,0,0,0,0,0,0,0,0,14, 
18,15,14 

690 DATA 19,0,0,20,0,0,0,0,0,0,0,0,21,0, 

0,22 

700 DATA 0,11,12,0,13,19,20,13,14,21,22, 
14,0,11,12,0 

710 DATA 0,0,0,0,0,22,21,0,0,20,19,0,0,0 
,0,0 

720 DATA 0,0,0,0,0,10,10,0,0,9,9,0,0,0,0 
0 
, 

730 DATA 0,0,0,0,0,8,7,0,0,8,7,0,0,0,0,0 

740 DATA 23,24,23,24,25,26,25,26,23,24,2 

3,24,25,26,25,26 

750 DATA 0,23,24,0,23,28,25,24,25,24;23, 





eux 
FER FORGE 


CHE Te 
CHERXEEELET ET] 





Vous constaterez très vite que si 


à Se 
< ; 26,0,25,26,0 
les motifs de base sont simples, 760 DATA 26,0,0,25,0,0,0,0,0,0,0,0,24,0, 
Es [eur Combinaison peut devenir très 0,23 
Fer forgé est un programme complexe. || est préférable, au dé- 770 DATA 18,0,0,17,0,0,0,0,0,0,0,0,18,0, 


original de mémoire visuelle part, de choisir les options "G" (voir 0,15 
et d'attention. Il vous permet- des grilles) ou "C" (composer des 780 DATA 0,0,0,0,0,23,24,0,0,25,26,0,0,0 
tra de vous familiariser avec grilles) avant de s'attaquer au jeu 1050 


l'art de la ferronnerie. 


10 ‘# 
SLI S SE TI SIDE TEST SDSTSLS I LLSE) 
FERFORGE 
JEU DU FERRONNIER 
J.Reingot 
Novesbre 1986 
Version 464-664-6128 
MITIITTIIICTIIIIS TITI EIIITES 


INITIALISATIONS 


120 BORDER 13: INK 0,13:PAPER O1INK 1,031 
NK 2,26: INK 3,0,28 

130 PEN 1 

140 #1=0 

150 DIM 1$124,4) ,208) ,p(24) ,x (24) ,y124), 
ra(12) | 

160 DIM n132) ,d(32) 

170 RESTORE 4470 

180 FOR i=1 TO 32:READ nli),dli):NENT 
190 ENV 1,1,15,5,5,-1,10,10,-1,5 

200 ‘ 

210 *  REDEFINITIONS SYMBOLES 

220 

230 SYMBOL AFTER 199 

240 SYMBOL 200,0 

250 SYMBOL 201,1,2,4,8,16,32,64,128 

260 SYMBOL 202,128,64,32,16,8,4,2,1 

210 SYMBOL 203,7,24,32,64,64,128,128,128 
280 SYMBOL 204,224,24,4,2,2,1,1,1 

290 SYMBOL 205,128,128,128,64,64,32,24,7 
300 SYMBOL 206,1,1,1,2,2,4,24,224 

310 SYMBOL 207,192,32,32,18,18,32,32,192 
320 SYMBOL 208,3,4,4,8,8,4,4,3 

330 SYMBOL 209,129,129, 102,24 





proprement dit (option “J"). 


340 SYMBOL 210,0,0,0,0,24,102,129,129 
350 SYMBOL 211,1,1,1,1,1,1,1,1 

360 SYMBOL 212,128,128,128,128,128,128,1 
28,128 

370 SYMBOL 213,0,0,0,0,0,0,0,255 

380 SYMBOL 214,255 

390 SYMBOL 215,255,128,128,128,128,128,1 
28,128 

400 SYMBOL 218,255,1,1,1,1, 
410 SYMBOL 217,128,128,128, 
28,255 

420 SYMBOL 218,1 
430 SYMBOL 219,1 
440 SYNBOL 220,1 
31 

450 SYMBOL 221,248,8,8,15,1,1,1,1 

460 SYMBOL 222,31,16,16,240,128,128,128, 
128 

470 SYMBOL 223,0,0,0,3,12,8,16,18 

480 SYMBOL 224,0,0,0,192,48,16,8,8 

490 SYNBOL 225,16,16,8,12,3 

500 SYMBOL 228,8,8,16,48,192 

510 SYMBOL 255,0,8,4,126,126,4,8 

520 DATA 0,1,2,0,1,0,0,2,2,0,0,1,0,2,1,0 
530 ‘ 

540 * DATA LIGNES 


1,1,1 
128,128,128,1 
slslststs1,255 
11,1,15,8,8,248 
28,128,128,128,240,16,18 


17 





790 

800 * 

810 ‘ FORMATION DES ELEMENTS 

820 

830 RESTORE 520 

840 FOR j=1 TO 24 

850 FOR i=1 TO 4 

860 READ ci,c2,c3,c4 

870 1$(j,i)=CHR$(200+c1)+CHR$(200+c2)+CH 

R$(200+c3)+CHR$(200+c4) 

880 NEXT :NEXT 

890 IF f1=1 THEN 1140 

900 RANDOMIZE TIME:60SUB 3030: "PRESENTAT 
ION 

910 ‘ 

920 MENU PRINCIPAL 

930 ‘ 

940 LOCATE B,10:PRINT "Voir des grilles. 
voussossss (6) 

950 LOCATE 8,12:PRINT "Cosposer des gril 
les.,,,,.,(C) 

960 LOCATE 8,14:PRINT "Jeu du Ferronnier 
sense ces CU) 

970 rep$=INKEYS:1F rep$="" THEN 970 

980 IF rep$="g" OR rep#="6" 60T0 3730 
990 IF rep$="c" OR rep$="C" BOTO 3890 
1000 IF rep#="j" OR rep$="J" THEN CLS:60 

T0 1050 

1010 G6OTO 970 

1020 ‘ 

1030 ‘ JEU 

1040 ” 

1050 LOCATE 3,3:PRINT * Vous devez d'abo 

rd selectionner" 

1060 LOCATE 3,5:PRINT "12 elesents parai 
les 24 qui vous" 

1070 LOCATE 3,7:PRINT " sont pr 

oposes" 

1080 LOCATE 2,11:PRINT * Pour cela il vo 

us suffit de taper" 

1090 LOCATE 2,13:PRINT * les lettres de 

s elesents choisis" 









1100 LOCATE 15,24:PRINT "Appuyez sur une 
touche": CALL &BBIB:CLS 

1110 

1120 ‘ CHOIX DES ELEMENTS 

1130 ‘ 

1140 PEN 1:FOR i=30 TO 512 STEP 96 

1150 FOR j=385 T0 145 STEP -80 

1160 ORIGIN i,j 

1170 PLOT 0,0,2:DRAW 66,0:DRAN 66,-6b:DR 

AN 0,-66:DRAN 0,0 

1180 NEAT ji 

1190 FOR i=1 TO 24:pli)=0:NEXT 

1200 s=0 

1210 FÜR j= 

1220 FOR i= 

1230 a=a+i 
1240 FOR w=1 TO 4 

1250 LOCATE 3+i#6,1+j#5+m: PRINT 1$(0,w) 

1280 LOCATE 2+i#6,3+j#5:PRINT CHR$(64+a) 

1270 LOCATE 2+i#6,4+j#5:PRINT CHR$(255) 

1280 yla)=2+j#5:x (8)=3+i#6 

1290 NEXT:NEXT:NEXT 

1300 FOR i=1 TO 12 

1310 ch$=INKEYS:IF ch$="" THEN 1310 

1320 ch$=UPPER$ (ch$) 

1330 r=ASC(ch$)-64 

1340 IF r>24 OR r€i THEN SOUND 1,430,20, 
15,,,20:607T0 1310 

1350 1F piri=1 THEN SOÛND 1,430,20,15,,, 

20:6070 1310 

1360 plr)=1 

1370 PEN 1:LOCATE 2+i,24:PRINT ch$ 

1380 FOR w=1 TO 4 

1390 LOCATE x{r),ylr)-1+w:PEN S:PRINT 1$ 
(r,w) 

1400 NEXT 

1410 PRINT CHR$(22)+CHR$(0):PEN 1:LOCATE 
25,24:PRINT “encore:":PEN J:LOCATE 34,2 
4:PRINT 12-i5: SOUND 1,60,20,15,1 

1420 PRINT CHR$(22)+CHR$(1) 

1430 ralil=r 

1440 NEXT i 

1450 FOR i=1 TO 12:FO0R w=1 T0 4:5$(u)=1$ 
Ginsl$ti,m=1$(rati) ,m):1#(rali) ,u)=5$ 
(W):NEXT:NEXT 

1460 FOR t=0 TO 5000:NEXT 

1470 

1480 ‘ MENU DU JEU (1) 

1490 ‘ 

1500 CLS:PEN 1 

1510 LOCATE 7,2:PRINT "Pour fabriquer se 
s grilles" , 

1520 LOCATE 6,3:PRINT "le ferronnier di 
spose donc” 

1530 LOCATE 5,4:PRINT “des 12 elesents d 
ifferents que" 

1540 LOCATE 5,5:PRINT "voicii" 

1550 PRINT CHR#(22)+CHR$ (0) 

1560 ORIGIN 270,305:DRAN 66,0,2:DRAN 66, 
-bb:DRAN 0,-6b:DRAW 0,0 

1570 FOR i=1 TO 12 

1580 FOR w=1 TO 4 

1590 LOCATE 18,6+m:PRINT 1$(i,m) 

1600 NEXT « 

1610 PRINT CHR$(7); 

1620 LOCATE 16,B:PRINT CHR$(b4+i) 

1630 LOCATE 16,9:PRINT CHR$(255) 

1640 FOR t=0 TO BOO:NEXT t 

1650 NEXT i 

1660 LOCATE 7,12:PRINT "a l'isage les el 
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esents se" 

1670 LOCATE 7,13:PRINT “superposent:" 
1680 PRINT CHR$(22)+CHR$ (1) 

1690 ORIGIN 270,177:DRAN 66,0:DRAN 66,-b 
6:DRAN 0,-b6:DRAN 0,0 

1700 FOR i=i T0 8 

1710 d=INT(RND#12)+1 

1720 FOR T=0 TD 200:NEXT 

1730 FOR w=1 TD 4 

1740 LOCATE 18,14+m:PRINT 1$(d,m) 

1750 NEXT:NEXT 

1760 LOCATE 7,20:PRINT "Vous devez trouv 
er de quels" 

1770 LOCATE 7,21:PRINT "elesents il s'es 
t servi." 

1780 LOCATE 19,25:PRINT “Appuyez sur la 
barre" 

1790 CALL &BBIB:CLS 

1800 ‘ 

1810 ‘ MENU DU JEU (2) 

1820 ‘ 

1830 PEN {:LOCATE 3,6:PRINT "Entrainesen 
t...2 elesents  (2)* 

1840 LOCATE 3,8:PRINT "Tres facile....3 
elesents  (3)" 

1850 LOCATE 3,10:PRINT "Facile........,4 
elesents  (4)* 

1860 LOCATE 3,12:PRINT "Hoyen....,,...,5 
elesents  (5)" 

1870 LOCATE 3,14:PRINT "Difficile......6b 
elesents  (6)" 

1880 LOCATE 6,17:PRINT "Tapez le noabre 
choisi" 

1890 r$=INKEYS:1F r#="" THEN 1890 

1900 k=VAL(r#):1F kÇ1 OR kb THEN SOUND 
1,430,20,15,,,20:60T0 1890 

1910 CLS 

1920 

1930 * AFFICHAGE FIXE 

1940 * 

1950 MINDON #1,2,36,15,23:PAPER 8#1,0:CLS 
# 

1960 NINDON #2,2,25,24,25 

1970 NINDON #3,37,39,15,23 

1980 CLS #H3S:PEN 83,3 

1990 NINDON #4,26,39,24,25:CLS #4 

2000 FOR i=30 TO 512 STEP 96 

2010 FOR j=385 T0 305 STEP -80 

2020 ORIGIN 1,1] 

2030 PLOT 0,0,2:DRAN 66,0:DRAN b6,-66:DR 

AN 0,-66:DRAN 0,0 

2040 NEXT j,i 

2050 PEN 1:F0R i=0 TO 5 

2060 FOR w=1 TO 4 

2070 LOCATE 3+i#6,1+w:PRINT 1$(i+1,m) 
2080 NEXT 4 

2090 LOCATE 2+i#b,3:PRINT CHR$(65+i) 

2100 LOCATE 2+i#6,4:PRINT CHR$(255) 

2110 NEXT 

2120 FOR i=0 T0 5 

2130 FOR w=1 TO 4 

2140 LOCATE 3+i#6,6+m:PRINT 1$(i+7,w) 

2150 NEXT m 

2160 LOCATE 2+i#6,8:PRINT CHR$(71+i) 

2170 LOCATE 2+i#6,9:PRINT CHR$(255) 

2180 NEXT i 

2190 LOCATE 7,13:PRINT"MODELE V 

OTRE GRILLE" 

2200 PEN #4,2:LOCATE #4,1,1:PRINT#4, "Pts 
? Sur!" 


2210 e$="ELEMENTS" 

2220 FOR 1=1 T0 B 

2230 LOCATE 38,4+I:PRINT MID$(E$,1,1) 
2240 NEXT ; 

2250 PEN 2:LOCATE 37,3:PRINT K 

2260 ORIGIN 0,0:PLOT 14,46:DRAN 272,46:D 
RAW 272,176:DRAN 14,176: DRAW 14,46 

2270 PLOT 318,46:DRAN 576,46: DRAN 576,17 
b:DRAN 318,176:DRAN 318,46 

2280 ‘ 

2290 *  TIRAGE AU SORT 

2300 * 

2310 J(1)=INT(RND#12)+1 

2320 J(2)=INT(RND#12)+1 

2330 IF J(2)=J(1) THEN 2320 

2340 J(3)=INT(RND#12) +1 

2350 IF J(3)=J(2) OR J(3)=J(1) THEN 2340 
2360 J(4)=INT(RND#12)+1 

2370 IF J(4)=J(3) OR J(4)=J(2) OR J(4)=J 
(11 THEN 2360 

2380 J(5)=INT(RND#12)+1 

2390 IF J(5)=J(4) OR J(5)=J(3) OR J(5)=J 
(2) OR J(5)=J(1) THEN 2380 

2400 J(6)=INT(RND#12)+1 

2410 IF J(6)=J15) OR J(6)=J(4) OR J(6)=J 
(31 OR J(6)=J(2) OR J(b)=J(1) THEN 2400 
2420 * 

2430 * AFFICHAGE MODELE 

2440 ” 

2450 WINDON #1,2,37,15,23 

2460 PEN #1,1 

2470 PRINT#I,CHR$(22)+CHR$ (1) 

2480 FOR 1=1 TO k 

2490 FOR H=0 TO 3 

2500 FOR V=0 TO 1 

2510 FOR w=1 TD 4 

2520 LOCATE #1,1+4#H,+44V+ 

2530 PRINTH1,18(JU1) ,m) 

2540 NEXT:NEXT:NEXT:NEXT 

2550 ” 

2560 ‘ REPONSE ET AFFICHAGE 

2570 ‘ 

2580 FOR i=1 TO k 
2590 af=INKEY#:1F a$="" THEN 2590 

2600 a$=UPPERS (a$}:2 (1) =ASC (a$) -64 

2610 IF 2011312 OR z(i)€1 THEN SOUND 1,4 
30,20,15,,,20:60T0 2590 

2620 PEN #1,1:LOCATE #1,18,i+1 

2630 PRINT#1,a8:SOUND 1,60,20,15,1 

2640 NEXT i 

2650 PEN #2,1:PRINT#2,"a refaire o/n° 
2660 r#=INKEY#:1F r$="" THEN 2660 

2670 IF r$="o" OR r$="0" THEN CLS #2:PEN 
#1,0:FOR i=1 TO K:LOCATE #1,18,i+1:PRIN 
THI,CHRS(14S):NEUT i:6070 2580 

2680 IF r#="n" OR r$="N" THEN CLS #2:60T 

0 2700 

2690 6OTO 2680 

2700 FOR j=1 TO k 

2710 FOR h=0 TO 3 

2720 FOR v=0 T0 1 

2730 FOR w=1 TO 4 

2740 PEN #1,1:LOCATE #1,20+4#h,44v+m 

2750 PRINT#1,18(2(j) ,n) 

2760 NEXT:NEXT:NEXT:NEXT 

2770 ORIGIN 16,48 

2780 ‘ 

2790 ‘ VERIFICATION ET SCURE 

2800 ‘ 

2810 tt=tt+l:PEN H4,1:LOCATE #4,11,14PRE 





NT#4,tt 

2820 j$="JUSTE":fa$="FAUX" 

2830 FOR x=0 TO 32 

2840 FOR y=0 TO 32 

2850 IF TEST(x,y)()TEST(x+304,y}) THEN 28 

90 

2860 NEXT:NEXT 

2870 FOR i=1 TO S:LOCATE #3,2,i+2:PRINTH 

3,M1D$(j8,i,1):FOR t=0 T0 100:NEXT: SOUND 
1,63,10,15,1:NEXT i 

2880 sc=sc+l:PEN #4,1:LOCATE #4,4,1:PRIN 

T#4,sc:60T0 2900 

2890 PEN #3,3:FO0R iz1 TO 4:LOCATE #3,2,i 

+L:PRINTES,NIDS(fa$,i,1):FOR t=0 TO 100: 

NEXT:SOUND 1,400,10,15,,,20:NEXT:607T0 29 

00 

2900 IF tt=10 THEN 2920 

2910 PEN #2,1:PRINT#2, "Appuyez sur une t 

ouche":CALL &BB18:CLS #1:CLS #2:CLS #3:6 

0TO 2260 

2920 PRINT#2, "Une autre serie o/n" 

2930 r$=INKEYS: IF r$="" THEN 2930 

2940 IF r$z"n" OR r$="N" THEN CALL 0 

2950 IF r$="o" OR r$="0" THEN sc=0:tt=0: 

CLS #2:PRINT #2,"D'autres elements? o/n" 

2960 rr$=INKEYS: IF rr$="" THEN 2960 

2970 IF rr$="o" OR rr$="0" THEN NINDON 1 
140,1,25:CLS:ERASE 18,x,y,p,ra,zn,diflz 
L:RESTORE:60T0 150 

2980 IF rr$="n" OR rr$z"N" THEN MINDON 1 
,40,1,25:CL5:60T0 1830 

2990 6DOTO 2950 

3000 ” 

3010 ” PRESENTATION 

3020 

3030 PRINT CHR$(22)+CHR$ (1) 

3040 ORIGIN 14,385:DRAN 130,0,2:DRAN 130 
17130: DRAN 0,-130:DRAN 0,0 

3050 ORIGIN 174,369:DRAW 130,0:DRAW 130, 

-66:DRAN 0,-66:DRAW 0,0 

3060 ORIGIN 366,385:DRAN 258,0:DRAN 258, 

bb: DRAN 0,-66:DRAN 0,0 

3070 ORIGIN 30,241:DRAW 66,0: DRAN 6b,-13 

0:DRAW 0,-130:DRAW 0,0 

3080 ORIGIN 542,289:DRAN 66,0: DRAW b6,-1 

30:DRAW 0,-130:DRAN 0,0 

3090 ORIGIN 14,80:DRAW 25B,0:DRAN 25B,-b 

b:DRAW 0,-66:DRAW 0,0 

3100 ORIGIN 334,9b:DRAW 130,0: DRAW 130,- 

bb: DRAN 0,-66:DRAN 0,0 

3110 ORIGIN 494,144: DRAN 130,0:DRAN 130, 

-130:DRAN 0,-130:DRAW 0,0 

3120 FOR is T0 6 

3130 g=INT(RND#24)+1 

3140 FOR h=0 TO 1 

3150 FOR v=0 T0 1 

3160 GOSUB 4400 

3170 FOR js1 TO 4 

3180 LOCATE 2+h#4,1+v#4+j:PRINT 1$19,j) 

3190 NEXT:NEXT:NEXT 

3200 g=INT(RND#24)+1 

3210 FOR h=0 T0 1 

3220 60SUB 4400 

3230 FOR j=1 T0 4 

3240 LOCATE 12+h+4,2+j:PRINT 1$1g,j) 

3250 NEXT:NEXT 

3260 g=INT(RND#24)+1 

3270 FOR h=0 T0 3 

3280 60SUB 4400 

3290 FOR j=1 T0 4 


3300 LOCATE 24+h#4,1+j:PRINT 18(9,j) 

3310 NEXT:NEXT 

3320 g=INT(RND#24)+1 

3330 FOR v=0 TO 1 

3340 GOSUB 4400 

3350 FOR j=1 TO 4 

3360 LOCATE 3,10+v#4+j:PRINT 1819, j) 

3370 NEXT:NEXT 

3380 g=INT(RND#24)+] 

3390 GOSUB 4400 

3400 FOR v=0 TO 1 

3410 GOSUB 4400 

3420 FOR j=1 TD 4 

3430 LOCATE 35,7+v#4+j:PRINT 1$(g,j) 

3440 NEXT:NEXT 

3450 g=INT(RND#24)+1 

3460 FOR h=0 TO 3 

3470 EOSUB 4400 

3480 FOR j=1 TO 4 

3490 LOCATE 2+h#4,20+j:PRINT 1$1g,j) 

3500 NEXT:NEXT 

3510 g=INT(RND#24)+1 

3520 FOR h=0 TO 1 

3530 GOSUB 4400 

3540 FOR j=1 TO 4 

3530 LOCATE 22+h#4,19+j:PRINT 1$(9,j) 

3560 NEXT:NEXT 

3570 g=INT(RND#24)+1 

3580 FOR h=0 TO 1 

3590 FOR v=0 TO 1 

3600 GOSUB 4400 

3610 FOR j=1 TO 4 

3620 LOCATE 32+h#4,16+v#4+):PRINT 1819, j 
) 

3630 NEXT:NEUT:NEUT 

3640 NEXT i 

3650 LOCATE 18,10:PRINT *J E U* 

3660 LOCATE 19,12:PRINT “D U" 

3670 LOCATE 11,14:PRINT 'FERRONNI 
ER" 

3680 FOR T=0 TO S000:NEXT 

3690 CLS:RETURN 

3700 * 

3710 * VOIR DES GRILLES 

3720 ‘ 

3730 CLS 

3740 GOSUB 4130 

3750 GOSUB 4290 

3760 FOR i=0 TO INTIRND#5)+5 

3770 g=INT(RND#24)+1 

3780 GOSUB 4190 

3790 NEXT 

3800 BOSUB 4340 

3810 LOCATE 1,25:PRINT “Une autre grille 
O/N" 

3820 r$=INKEYS:IF r$="" THEN 3820 
3830 IF r#="n" OR r$="N" THEN CLS:6070 9 
40 

3840 IF r$="o" OR r$="0" THEN CLS:60TD 3 
740 : 

3850 60TO 3820 

3860 ” 

3870 ‘ COMPOSER DES GRILLES 

3880 ‘ 

3890 CLS 

3900 GOSUB 4130 

3910 GOSUB 4290 

3920 ORIGIN 30,14:DRAN bb,0:DRAN 66,661D 

RAW 0,66:DRAW 0,0 

3930 FOR i=1 TO 24 


3940 PRINT CHR$(22)+CHR$ (0) 

3950 FOR j=1 TO 4 

3960 LOCATE 3,20+j:PRINT 1#(i,j) 

3970 NEXT 

3980 LOCATE 10,22:PRINT "A utiliser O/N" 
3990 r$=INKEYS:IF r$="" THEN 3990 

4000 IF r$="o" OR r$="0" THEN g=i:60SUB 
4190:6070 4030 

4010 IF r$="n" OR r$="N" THEN 4030 ELSE 
60TO 3990 

4020 SOUND 1,60,20,15 

4030 NEXT i 

4040 GOSUB 4340 

4050 LOCATE 27,22:PRINT "Une autre O/N" 
4060 r£$=INKEYS: IF r$="" THEN 4060 

4070 IF r$="o" OR r$="0" THEN 3890 

4080 IF r$="n" OR r$="N" THEN CLS:60T0 9 
40 

4090 6OTO 4060 

4100 ‘ 

4110 DESSIN DU CADRE 

4120 ‘ 

4130 ORIGIN 78,384:DRAN 450,0,1:DRAW 450 
7298: DRAN 0,-258:DRAW 0,0 

4140 ORIGIN 76,386:DRAW 454,0:DRAW 454,- 
262:DRAN 0,-262:DRAN 0,0 

4150 RETURN 

4160 ” 

4170 ‘ DESSIN DE LA GRILLE 

4180 ‘ 

4190 PRINT CHR$(22)+CHR$ (1) 

4200 PEN 1 

4210 FOR h=0 TO 6 

4220 FOR v=0 TO 3 

4230 GOSUB 4430 

4240 FOR j=1 T0 4 

4250 LOCATE b+4#h,1+4#v+) 

4260 PRINT 1$(9,j) 

4270 NEXT:NEXT:NEXT 

4280 RETURN 

4290 MINDOW #1,6,33,2,17:CLS #I:PAPER #1 
,2:CLS #1: RETURN 

4300 RETURN 

4310 

4320 COULEURS 

4330 ‘ 

4340 FOR cc=1 T0 25:60SUB 4430:INK 2,cc! 
PAPER #1,2:FOR t=0 TO 400:NEXT:NEXT 
4350 INK 2,26 

4360 RETURN 

4370 ‘ 

4380 ” MUSIQUE 

4390 

4400 m=n+l:IF m)32 THEN e=1 

4410 SOUND 1,nta),d(a)#2,15,1 

4420 RETURN 

4430 na=aa+l:IF an)32 THEN aa 

4440 x=INT (RND#2) +2 

4450 SOUND 1,nan)/x,diam),15,1 

4460 RETURN 

4470 DATA 159,20,142,20,127,20,159,20 
4480 DATA 159,20,142,20,127,20,159,20 
4490 DATA 127,20,119,20,106,40 

4500 DATA 127,20,119,20,106,40 

4510 DATA 106,15,95,5,106,10,119,10,127, 
20,159,20 

4520 DATA 106,15,95,5,106,10,119,10,127, 
20,159,20 

4530 DATA 159,20,213,20,159,40 

4540 DATA 159,20,213,20,159,40 1 
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GEOMETRIE 


Jouez au morpion 
les cours de maths, 
teur travaille pour vous ! 
Avec ce programme, vous 
pourrez par exemple résou- 
dre un système de plusieurs 
équations, trouver les  raci- 
nes d'un polynôme d'un de- 
gré quelconque, vérifier les 
asymptotes d'une courbe, ou 


pendant 
l'ordina- 


Laurent CROQ 





tout 


simplement 
courbe 

fonction... 
Si votre problème fait 


obtenir la 
représentative d'une 


inter- 
géomé- 
rectangles, 


venir des formes 
triques (carrés, 

losanges, cercles,  ellipses, 
hexagones..…), vous pouvez 
aussi les reproduire sur votre 


écran. 





— Instructions 


Après avoir lancé le programme, 
l'ordinateur vainitialiser certaines va- 
riables, charger la routine de copie 
d'écran (lignes 11000-11030), pré- 
parer le message d'entrée. C'est 
pour cela que l'écran reste blanc 
quelques instants. 

Puis les options principales appa- 
raîtront. Pour sélectionner une 
d'entre elles, vous devez appuyer 
sur la touche correspondant à la 
première lettre de celle-ci. Par 
exemple, pour sélectionner l'option 
‘Equation, vous devez appuyer sur 
'E". 

A n'importe quel moment du pro- 
gramme, vous pouvez revenir à ce 
menu principal : il suffit d'appuyer 
sur la touche TAB. 

L'écran est divisé en deux parties : 
en haut, la représentation graphi- 
que en cours (avec les axes en noir 
et les unités en orange (INK 2,15)) 
et en bas, un rectangle où s'effec- 
tueront tous les dialogues entre l'or- 
dinateur et vous. 

1) L'option Equation 

En appuyant sur 'E', deux nouvel- 
les options apparaissent : 1-Visua- 
liser 2-Entrer. Vous pourrez donc 
visualiser l'équation qui est actuel- 
lement traitée (en appuyant sur '1') 
ou bien enregistrer celle-ci (en ap- 
puyant sur'2). 

— Visualiser l'équation 

Après avoir tapé sur ‘1', l'équation 
traitée apparaîtra tout simplement à 
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l'écran. Il suffit d'appuyer sur une 
touche pour continuer. 

— Entrer l'équation 

Après avoir tapé sur "2, l'ordinateur 
vous demande d'entrer l'équation à 
traiter. 

Si vous voulez simplement modifier 
celle qui est déjà en mémoire, ap- 
puyer sur la touche 'COPY' : vous 
la ferez ainsi apparaître à l'écran. 
Lorsque vous avez terminé, ap- 
puyez sur "RETURN". L'ordinateur 
vous demande alors de taper sur la 
barre d'espacement : ceci est né- 
cessaire pour. valider l'équation. 
Attention cependant, il faut ap- 
puyer seulement sur espace sans 
'SHIFT". Si cela se produit, retapez 
"RUN'. (Vous ne verrez pas appa- 
raître les lettres car la couleur de 
l'encre sera la même que celle du 
papier) 

2) L'option Courbe’ 

Cette option vous permet d'obtenir 
la courbe représentative de la fonc- 
tion que l'ordinateur a en mémoire 
(au lancement du programme, il 
s'agit de : f(x) = O). 

Pour tracer cette courbe, l'ordina- 
teur a besoin de plusieurs rensei- 
gnements : à partir de quel point 
doit-il commencer le traçage, et jus- 
qu'où ? (vous devez donc entrer 
l'abscisse de ces deux points). Puis 
il vous demandera l'unité en pixels 
sur l'axe xx ‘ et l'axe yy ‘ : (lorsque 
vous lancez le programme pour la 
première fois, l'unité est de 16 
pixels sur les deux axes). Plus le 


nombre de pixels est grand et plus 
la courbe sera agrandie. 

Si vous ne voulez pas changer les 
unités, appuyez seulement sur 'RE- 
TURN". 

Le traçage peut être interrompu en 
appuyant sur'TAB:". 


3) L'option'Images' 

En appuyant sur 'l', l'ordinateur se 
charge de calculer l'image ou les 
images du ou des nombres que 
vous lui donnez. 

1-— calcul d'une seule image 

Après avoir tapé sur ‘1, il vous suffit 
d'entrer le nombre à traiter. Si ce 
_ nombre n'a pas d'image, l'ordina- 
teur vous dira : (non défini) 

2-— calcul d'une suite d'images 

Après avoir tapé sur "2", l'ordinateur 
vous demande à partir de quel nom- 
bre il doit commencer les calculs, 
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jusqu'où, et avec quel pas. Cela cor- 
respond tout simplement à : 'FOR f 
= … TO … STEP … (ce traitement 
s'effectue dans la ligne 1250). 

Il vous demandera aussi si vous dé- 
sirez un tirage sur imprimante : 
vous tapez ‘0", 'N' ou 'RETURN'(ce- 
la correspond à une réponse néga- 
tive). 


4) L'option'Axes' 

Grâce à cette option, vous. pouvez 
déplacer les axes xx " et yy ‘. Pour 
indiquer à l'ordinateur la nouvelle 
position des axes, vous déplacez 
une croix au moyen des flèches 
directionnelles (cette croix repré- 
sente la nouvelle intersection des 
axes). Pour valider cette position, il 
faut appuyer sur'RETURN"'. (Cepen- 
dant, une confirmation est néces- 
saire car l'écran sera nettoyé). 

En même temps que vous dé- 
placez les axes, la nouvelle position 
de l'intersection des axes est indi- 
quée en bas de l'écran. 


5) L'option'Traiter écran' 

Deux nouveaux choix apparaîtront 
à l'écran après avoir tapé sur'T' : 

1- Effacer l'écran: 

Vous avez tout simplement effacer 
l'écran. L'ordinateur vous demande- 
ra quand même de confirmer votre 
choix. 

2- Copier l'écran 

C'est grâce à cette option que vous 
pouvez effectuer une copie d'é- 
cran sur une imprimante. lci, l'ordina- 
teur fait appel à une routine écrite 
en langage machine (point d'en- 
trée : CALL &A000). Il lui faudra 
une cinquantaine de secondes 
pour effectuer l'impression (celle-ci 
peut être interrompue en appuyant 
sur'TAB). 

(Cette routine a été réalisée pour 
fonctionner avec une DMP 2000.) 


6) L'option 'Repérer' 

lci, vous pouvez repérer le point 
d'intersection de deux droites ou 
de deux courbes. 

En bas de l'écran apparaissent les 
coordonnées d'un point que vous 
déplacez à l'aide des flèches hori- 
zontales. Ce point est facilement 
repérable à l'écran : il clignote et il 
appartient à la courbe représen- 
tative de la fonction actuellement 
traitée. 


Ce point n'est visible que s'il existe 
et s'il ne dépasse pas les limites 
inférieures et supérieures de l'é- 
cran. 

Pour connaître les coordonnées 
d'un point quelconque de cette 
courbe, il vous suffit donc de ra- 
mener le 'spot' au niveau désiré. 


7) L'option'Figures' 
— Ellipses (ou cercles) 


— Quadrilatères (carrés, rectan- 
gles, losanges, trapèzes.….) 

— Trangles 

— Polygones (réguliers — hexa- 


gones... — ou non réguliers) 

— Droites verticales (Le programme 
peut traiter n'importe quelle équa- 
tion de droite, sauf celles de la 
forme : x= a). 

Il est possible d'afficher unique- 
ment un segment ou un point : 
pour ces deux cas, il faut sélec- 
tionner l'option 4 ('Autres') puis l'op- 
tion 2 (‘Polygones non réguliers) : 
Pour afficher un point : quand l'or- 
dinateur vous demande ‘Nombre 
de côtés..., tapez 1- (pour un seg- 
ment, tapez 2). Il ne vous reste qu'à 
taper les coordonnées de ce point. 
(Pour un segment, tapez les coor- 
données des deux points qui li- 
mitent celui-ci) 


Les variables les plus utilisées : 

unx : unité en pixels sur l'axe xx" 

uny : unité en pixels sur l'axe yy" 

ax : abscisse en pixels de l'axe yy' 
cpt$: en tapant ‘PRINT cp1f, 
vous sélectionnez le crayon n° 1. 


Cpe$ : vous sélectionnez le 
crayon n° 2. 
cp3$ : vous sélectionnez le 
crayon N°3. 


equ$ : cette variable contient l'é- 
quation actuellement traitée. 
messagef : cette variable contient 
le message d'entrée (Options). 

impo : si le calcul en cours est im- 
possible, impo = 1 sinon impo = 0 


Deux exemples d'utilisation 
Essayez d'établir (à la main!) la 
courbe représentative de cette 
fonction : 
x3 + 2x2-3 
f (x) = 
x3+x2- 6x 


Avec ce programme, 


— sélectionnez l'option ‘Equation 


puis ‘Entrer. Puis, tapez 
(x13+2*x 2-3) / (x3+x"2-6x), suivi 
de ‘RETURN’. (Ensuite, appuyez 
sur la barre d'espacement). L'équa- 
tion est maintenant enregistrée. 

— sélectionnez l'option ‘Courbe. 
Entrez les 4 paramètres néces- 
saires, à savoir : ‘Abscisse du 1er 
point’ (tapez —10), ‘'abscisse du 
2ème point (tapez 10), ‘unité sur 
l'axe xx " (tapez 16), ‘unité sur l'axe 
yy "(tapez 16). 

L'ordinateur va maintenant tracer la 
courbe représentative de la fonc- 
tion qu'il a en mémoire. C'est tout ! 

Si vous voulez une copie sur impri- 
mante, sélectionnez l'option ‘Traiter 
écran' puis ‘Copier écran'. En moins 
d'une minute, la copie sera effec- 
tuée. (les unités n'apparaîtront pas 
sur celle-ci : c'est à vous de les re- 
passer à l'aide d'un crayon d'une 
couleur différente) 


Un autre exemple plus simple : 
Comment résoudre ce système 
d'équations avec le programme ? 


y=2x-1 
y=ix #4 
2 


D'abord, nettoyer l'écran (si néces- 
saire). 

Puis, entrez la première équation : 
option ‘Equations’, 'Entrer' et tapez 
"2*x-1' 

Demandez maintenant la première 
représentation graphique : option 
Courbe’. (vous pouvez garder les 
mêmes paramètres que dans le pre- 
mier exemple). 

Recommencez ce processus pour 
la deuxième équation. (Celle-ci s'é- 
crit : (—-1/2)*x+4) en gardant les mé- 
mes unités. 

Sélectionnez l'option ‘Repérer’. Uti- 
lisez les flèches horizontales pour 
déplacer le ‘spot’ jusqu'au point d'in- 
tersection des deux droites. Il ne 
vous reste plus qu'à lire les coor- 
données en bas de l'écran : x = 4 
et y = 5. C'est en effet le couple de 
solution du système précédent. 

Ce programme est compatible avec 
les Amstrad 464, 664, 6128. 

Bon amusement ! 
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100 REM initialisations 

105 GOSUB 10005:60SUB 11005:60SUB 12005: 
60TO 210 

200 REM retour des sous-progranses 

205 g$=INKEYS:1F g$="" THEN 205 

210 CLS:PRINT sessagef; 

500 REN boucle principale 

303 g$=UPPERS(INKEY#)21F g$="" THEN 505 
310 ON INSTR("ICTRAEF",g#) 60TO 1005,200 
3,3005,4005,5005,8005,7005 

515 6070 505 

1000 REM traitesent isages 

1005 ON ERROR 60T0 65005 

1010 CLS:PRINT cp2$;"1-"ycpi$s;"Iaage d'u 
n reel “icp28;"2-"scpl$; "Plusieurs re 
els" 

1015 g$=INKEY#:1F g$="" THEN 1015 

1020 IF ASC(g$1=191 THEN 210 ELSE IF g$= 
"1" THEN 1105 ELSE IF g$="2" THEN 1205 
1025 6070 1015 

1100 REN ss pros un reel 

1105 CLS:PRINT "Isage d'un reel :" 

1110 PRINT "f(";cp283: INPUT "",nb$ 

1115 IF nb$=CHR$(191) THEN 210 ELSE nb=V 
AL (nb$) 

1120 LOCATE 1,2:PRINT cpi$;"#l";cp2#5;nb; 
cpif;")=";cp28;FN Finb} 

1125 IF ispo=1 THEN PRINT * (non defini) 
"2iapo=0 

1130 6070 205 

1200 REN ss pro: plusieurs reels 

1205 CLS:PRINT “Isage de plusieurs reels 
1210 PRINT "de :","a :":LOCATE 5,2:PEN 2 
1215 INPUT “",nbi$:1F nb1$=CHR#(191) THE 
N 210 ELSE nbi=VAL (nb1$} 

1220 LOCATE 17,22 INPUT “",nb2811F nb2$eC 
HR$(191) THEN 210 ELSE nb2=VAL (nb2$) 
1225 PEN 1:1F nb2(nbl THEN PRINT “Erreur 
"6070 205 

1230 CLS: INPUT "Quel pas ? ",pa$:IF pa$= 
CHR$(191) THEN 210 ELSE pas=ABS (VAL (paf) 
):1F pas=0 THEN 1230 

1235 CLS:INPUT "Tirage sur laprisante ? 
(O/N) ",r$:r$=UPPERS(r#):1F r$="" THEN 1 
245 ELSE IF r$()"0" AND r$C)"N" AND r$() 


CHR$(191) THEN 1235 

1240 IF ASC(r$)=191 THEN 210 

1245 IF r$="0" AND INPI&F500)230 THEN ia 
p=L:PRINT #8,CHR$ (27); CHR# (64); "F(x)="5L 
ONER$ (equ$):PRINT #8 ELSE iap=0 

1250 CLS:FOR f=nb1 TO nb2 STEP pas 

1255 PRINT "#l"icp283f;cpi$;")=":cp28:FN 
#(#) 

1260 IF iapo=i THEN PRINT “ (non defini) 
“siapo=0 

1265 IF iap=1 THEN PRINT 88,"F(";#;")2"; 
FN #14) 

1270 IF iapo=i THEN PRINT 88," (non defi 
nil":iapo=0 

1275 g$=INKEYS: IF g$=CHR$#(191) THEN 210 
ELSE IF g#="" THEN 1275 

1280 PEN 1:NEXT:60T0 205 

2000 REM traitement courbe 

2005 CLS:PRINT"Abscisse du ler point:":P 
RINT"x1=" 

2010 PEN 2:LOCATE 4,24 INPUT" ",x18:IF x1$ 
=" THEN 2010 ELSE IF ASC(x1#)=191 THEN 
210 ELSE x1=VAL(x1$) 

2015 PEN 1:CLS:PRINT'Abscisse du 2nd poi 
nt:":PRINT"x2=" 

2020 PEN 2:LOCATE 4,2: INPUT" ",x2$:1F x2$ 
=°* THEN 2010 ELSE IF ASC(x2#)=191 THEN 
210 ELSE x2zVAL(x2$) 

2025 PEN 1:CLS:PRINT "Unite sur l'axe * 
scp2$s"ux "ycpi$;" (en pixels) :":PRINT 
SPC(15);"(actuellesent: "scp2$4 (unx+2)/ 
2;cpi#;")" 

2030 PEN 2:LOCATE 1,2: INPUT "",uni$:PEN 
1:1F uni$="" THEN uniz0:607T0 2035 ELSE 1 

F ASCluni$)=191 THEN 210 ELSE uni=VAL (un 
1#):1F uniz0 THEN 2030 

2035 CLS:PRINT "Unite sur l'axe ";cp2$s 
“yy'"scpi$s" (en pixels) :":PRINT SPC(I 
S);"(actuellesent: “ycp28} luny+2)/2;cpi$ 
) 

0 

2040 PEN 2:LOCATE 1,2: INPUT "*,un2$:PEN 
1:1F un2$="" THEN un2=0:6070 2045 ELSE 1 
F ASC(un2$)#191 THEN 210 ELSE un2=VAL (un 
2#)::1F un2=0 THEN 2040 

2045 IF uni()0 THEN unx=luni-1)#2 

2050 IF un2(>0 THEN unyz{un2-1)#2 

2055 CLS:PRINT "Veuillez patienter." 

2060 ON ERROR 60TO 65005 

2085 GOSUB 10075 

2070 point=1 

2075 FOR f=xi#unx TO x2#unx STEP 2 

2080 a=FN #(f/unx)+uny: IF iapozi DR a)5 

00-ay OR a(-ay-100 THEN point=1:6070 209 
0 

2085 IF point=1 THEN PLOT f,a:point:0 EL 
SE DRAN f,a 

2090 g$=INKEYS: IF g$=CHR$(191) THEN 2100 
2095 iapo=0:NEXT 

2100 60SUB 10075 

2105 G60TO 210 


‘3000 REM traitesent ecran 


3005 CLS 

3010 PRINT cp2$;"1-";cpi$; "Effacer l'ecr 
an, “ocp2$s;"2-"scpl$; "Copier l'ecran“ 
3015 g$=INKEYS: IF g$="" THEN 3015 

3020 IF g$="1" THEN 3105 

3025 IF g$="2" THEN 3205 

3030 IF ASC(g$)=191 THEN 210 

3035 6070 3015 





3100 REM ss pro: effacer ecran 

3105 CLS:PRINT "Effacer l'ecran :":PRINT 

“Confiraez-vous ce choix ? ";cp2$3" (D/N) 

“scpis 

3110 g#=UPPERSUINKEYSI:11F g$(>"0" AND g$ 

CN" AND g$CCHR$#(191) THEN 3110 

3115 IF g$="N" OR ASCIg$1=191 THEN 210 

3120 CL6:60SUB 10075 

3125 6070 210 

3200 REM ss pro: copier ecran 

3205 IF INP(&FS00) AND 64 THEN CLS:PRINT 
“Etes-vous surle) que l'isprisante est 

branchee ? ...":6070 205 

3210 PRINT. #8,CHRS (27) ;CHR# (64); "Flx)="; 
LONERS$ (equ$) 

3215 PRINT #8:0RIGIN 0,50:POKE &AOAO,0:C 
LS:PRINT “Veuillez patienter. ":CALL &A00 


0 
3220 IF PEEKIWAOAO)€)0 THEN FOR #=1 T0 3 
20: PRINT #8,CHR$#(0);:NEXT:60TO 3230 
3225 PRINT BB:PRINT 48,SPC(11);"##æ L, 
Crog Juillet 1985 ###":FOR #=1 TO 4:PR 
INT HB:NEXT 

3230 ORIGIN ax,ay: 6010 210 

4000 REM traitesent reperage 

4005 ON ERROR 60T0 65005 

4010 ab=0pas=01CLSePRINT "Utilisez les 
fleches "ycp283CHRS(242)pcpi#y" et "scp2 
$;CHR$(243);cpl$ 

4015 g$=INKEYS:1F g$="" THEN 4015 ELSE ! 
F g#eCHR#(191) THEN 210 ELSE CLS:PRINT " 
Bbscisse :"scp283 (ab#21/unx;cpi$sPRINT * 
Ordonnee :";cp285FN #{(ab#21/unx);cpl$ 
4020 1F iapo=t THEN LOCATE 11,24PRINT "{ 
non defini)":iapo=0 

4025 couleur=TEST {ab+2,FN F(lab#2)/unx) 
#uny} 

4030 PLOT ab+#2,FN F((ab#2)/unx)#uny,3 
4035 g$=INKEYS#:1F g$="" THEN pas=0:60T0 
4035 5 

4040 PLOT ab#2,FN F((abæ#2)/unx)#uny,coul 
eur 

4045 iapoz0 

4050 MOVE 0,0,1 

4055 g=ASC(g$) 

4060 IF g=243 AND ab#2+pas+1(638-ax THEN 
pas=pas+i:ab=ab+pas: 6070 4105 

4065 IF y=242 AND ab#2-pas-1)-ax THEN pa 
s=pastisab=ab-pas: 6070 4105 
4070 IF ASC(g$)=191 THEN 210 

4075 pas=0:6070 4025 
4100 REM ss pro: affichage coordonnees 
4105 PEN 2:LOCATE 11,1:PRINT (ab#2)/unxy 
5 "ALOCATE 11,22PRINT FN f((a 
b#2)/unx);" , 
4110 IF iepo=1 THEN LOCATE 11,2:PRINT 
{non defini}":iapo=0 

4115 PEN 1e6070 4025 

3000 REN traitesent axes 
3003 ORIGIN 0,0:x=ax/2:y=ay/2:pas=0:CLS 
3010 PRINT CHR$(23);CHR$(1);"Utilisez ‘y 
CHRS(242):",";CHRS(243);°,"{CHRS(240);", 
"yCHR$(241);" et ENTER" 
3015 g$=INKEYS:IF g$="" THEN 5015 ELSE I 
F g$=CHR#(191) THEN 210 ELSE CLS:PRINT 
Abscisse de l'axe (yy')e"scp2$;x#2;cpif; 
“pixels":PRINT “Ordonnee de l'axe (xx'}1 
“scp2$iyæ2scpi$;"pixels" 
5020 G6OSUB 5205 
3025 g$=INKEYS: IF g$="" THEN pas=0:6070 


3025 

5030 IF INKEY(0)()-1 AND y+pas(199 THEN 
G60SUB 5200:y=y+pas:60SUB 5200 

3035 IF INKEY(21()-1 AND y-pas)28 THEN 6 
OSUB 5200:y=y-pas:60SUB 5200 

3040 IF INKEY(B){)-1 AND x-pas)0 THEN 60 
SUB 5200:x=x-pas:60SUB 5200 

3045 IF INKEY(1)€)-1 AND x+pas(319 THEN 
GOSUB 5200:x=x+pas:G0SUB 5200 

3050 IF g$=CHR$(191) THEN PLOT x#2-16,y# 
2:DRAWR 32,0:PLOT x#2,y#2-16:DRANR 0,32: 
ORIGIN ax,ay:PRINT CHR$(23) ;CHR$ (0) ; : GOT 
0 210 

5055 IF g$=CHR#(13) THEN 5105 

5060 60TO 5025 

3100 REM ss pro: valider 

5105 CLS:PRINT'Confiraez vous ? (0/N)":P 
RINT'axe (yy'}:"pcp283x#2;cpi$;" axe 
Gui" scp2$;y#25cpi$ 

3110 g$=UPPERS(INKEYS#):1F g$="" THEN 511 
0 

3115 IF g$=CHR$(191) OR g$="N" THEN g$=C 
HR$#(191):60T0 5050 

3120 IF g$="0" THEN CLG:PRINT CHR$(23);C 
HR$(0);1ax=x#2: ay=y#210RIGIN x+2,y#2:605 
UB 10073:60T0 210 

5125 60T0 5110 

3200 REN ss pro: affichage axes 

3205 PLOT x#2-16,y#2:DRAMR 32,0:PLOT x#2 
,Y#2-16:DRANR 0,32 

59210 PEN 2:LOCATE 25,14PRINT x#21LOCATE 
25,2:PRINT y#2:PEN 1 

3215 pas=pas+i:RETURN 

6000 REM traitement equation 

6005 CLS:PRINT cp2$;"1-"scpif;"Visualise 
rs SPC(8) ;cp2#;"2-"scpi$; "Entrer" 

6010 g$=INKEYS: IF g$="" THEN 6010 

6015 IF g#="1" THEN 6205 

6020 IF g$="2" THEN 8105 

6025 IF g#=CHR$(191) THEN 210 

6030 GOTO 6010 

6100 REM ss pro: entrer equation 

6105 ON ERROR G0TO 65005:CLS:KEY 156,equ 
$ 

6110 CLS:PRINT cpi$;"Tapez l'equation a 
traiter :":PRINT'F(x)="scp2$#:LOCATE 6,2: 
INPUT"" ,equi$:PEN 1:1F equi$="" THEN PRI 
NT CHR$(7);:6070 6110 

6115 IF ASCIequif$}=191 THEN 6140 

6120 CLS:PRINT "Appuyez sur ‘"scp3$;"ESP 
ACE"scpi$;""." 

6125 KEY 157," 6135 DEF FN Fx)="+equi$+ 
CHR$(13)+"607T0 6135"+CHR$(13):KEY DEF 47 
51,157 

6130 g$=INKEYS:1F g$C>" " AND g$C)CHR#(1 
91) THEN 6130 ELSE IF g#=CHR$(191) THEN 
equi$=equ#:60T0 6140 ELSE CLS:PRINT"Veui 
llez patienter":WINDON #0,2,2,24,24:PEN 
0:END 

6135 DEF FN Fx)=TTRSBRTBRST 

6140 NWINDON 40,2,39,23,24:PEN 1:KEY DEF 
47,1,158:KEY 156,CHR$ (224) sequ$=equi$: 60 
T0 210 

6200 REM ss pros visualiser equation 
6205 CLS:PRINT “Equation actuellesent tr 
aitee :":PRINT "Fix)=";cp2$;LONERS (equ$) 
scpi$ 

6210 G60TO 205 

7000 REN traitesent figures 

7005 CLS:PRINT cp2$;"1-"scpi$; "Ellipses 


“icp2$:"2-"scpl$;"Quadrilateres ";cp2$;" 
3-"scpl#$;"Triangles";cp2$;"4-"scpi$;"Dro 
ites verticales "jcp2$;"5-"ycpl$; "Autre 
s figures"} 

7010 g$=INKEYS: IF g$="" THEN 7010 

7015 IF g#=CHR$(191) THEN 210 

7020 IF g$="{" THEN 7055 


© 7025 IF g$="2" THEN 7155 


7030 IF g$="3" THEN c=3:6070 7665 

7035 IF g$="4" THEN 7755 

7040 IF g$="5" THEN 7505 

7045 6070 7010 

7050 REM ss pro: ellipses 

7055 CLS:PRINT"Coor donnees du centre de 
l'ellipse:":PRINT "xz":SPC(18);"yz" 

7060 G60SUB 7800 

7065 IF retour=1 THEN retour=0:60T0 210 
7070 CLS:PRINT "Rayon de l'ellipse sur 1 
‘axe xx° :"#PRINT"rxz" 

7075 PEN 2:LOCATE 4,2: INPUT" ,ri$sPEN 1: 
IF ri$=CHR$(191) THEN 210 ELSE IF ri$="" 
THEN 7075 ELSE r1=ABS(VAL(r1#)) 

7080 CLS:PRINT "Rayon de l'ellipse sur 1 
‘axe yy' 2 "2 PRINT" ry=" 

7085 PEN 2:LOCATE 4,2: INPUT"" ,r2$:PEN 1: 
IF r2#=CHR$(191) THEN 210 ELSE IF r2$="" 
THEN 7085 ELSE r2=ABS (VAL (r2$)) 

7090 CLS 

7095 PRINT “Veuillez patienter* 

7100 DEF FN ell(x,y,f,unx,ri,r2)=(S0R(1- 
(l#/unx-x)/r1)*2)#r2)sanc=01 FOR fe lx+r1) 
#unx-2 TO (x-r1)#unx STEP -2 

7105 PLOT f+2,(y+anchæuny:DRAN f,(y+FN e 
Lx,y,f,unx,ri,r2))#uny:PLOT #+2,(y-anc 
æuny:DRAN f,(y-FN ell(x,y,f,unx,r1,r2)) 
æunysanc=FN ell{x,y,f,unx,ri,r2) 

7110 g$=INKEY#:IF g$=CHR$(191) THEN 210 
ELSE NEXT 

7115 60SUB 10075:607T0 210 

7150 REM ss pro: quadrilateres 

7155 CLS:PRINT SPC(S);cp2$3;"1-"5cp1$4"Pa 
rallelograsses "ycp2$;"2-"scpl$;"Trapez 
es":PRINT SPC(9);cp28;"3-"scpi$; "Autres 
quadrilateres" 

7160 g$=INKEYS: IF g$="" THEN 7160 

7165 IF g$=CHR$(191) THEN 210 

7170 IF g$="1" THEN 7205 

7175 IF g#="2" THEN 7405 

7180 IF g$="3" THEN cz4:607T0 7665 

7185 6070 7160 

7200 REN ss pro: parallelograsses 

7205 CLS:PRINT SPC(4);cp2$4"1-";cpl$; "Ca 
rres/Rectangles “scp2$;"2-"scp1$t"Losan 
ges":PRINT SPC(7)5cp2$3"3-"pcpi$s "Autres 
parallelograsses" 

7210 g#=INKEYS:1F g$="" THEN 7210 

7215 IF g$=CHR$(191) THEN 210 

7220 IF g$="{" THEN 7255 

7225 IF g$="2* THEN 7300 

7230 IF g#="3" THEN 7350 

7235 60TO 7210 : 

7250 REN s5-pro: carres/rectangles 

7235 CLS:PRINT"Coordonnees du point infe 

rieur gaucheix="}SPC(18);"y=" 

7260 GOSUB 7805:x1=x:y1=yt1F retourz1 TH 

EN retour=0:60TD 210 

7265 CLS:PRINT"Coordonnees du point supe 

rieur droit: x="}SPC(18);"y=" 

7270 GOSUB 7805:x22x1y22ys1F retoursi TH 

EN retour=0:60T0 210 





7275 IF x13x2 OR y1)y2 THEN CLS:PRINT"Er 
reur ..,":60T0 205 

7280 cotel=ABS(x1-x2)#unx:cote2=ABS (y1-y 
2)#uny:PLOT x1#unx ,yituny:DRANR cotei,0: 
DRANR 0,cote2:DRANR -cotei,0:DRAR 0,-co 
te? 

7285 60SUB 10075:60T0 210 

7300 REX ss pro: losanges 

7305 CLS:PRINT"Coordonnees du point le p 
lus bas :":PRINT"xz"; SPC (18) 4" y=" 

71310 60SUB 7805:x1=x#unxsyieyæunys IF ret 
our=1 THEN retour=0:6010 210 . 
7315 CLS:PRINT"Coor donnees du point le p 
lus à gauche:x=";SPC(18);"yz" 

7320 GOSUB 7805:x2=x#unx:y2=y#unys11F re 
tour=1 THEN retour=0:60T0 210 

7925 IF x1€x2 OR y13y2 THEN CLS:PRINT'Er 
reur .,.":607T0 205 

7330 PLOT x1,y1eDRAN x2,y2:DRAN x1,2#y2- 
y: DRAN 2#x1-x2,y2:DRAN x1,y1 

7335 60SUB 10075:607T0 210 

7350 REM 55 protautres parallelograsses 
7355 CLS:PRINT"Coordonnees du point infe 
rieur gauche:x=";SPC(18);"y=" 

7360 GOSUB 7805:x1=x#unx:yi=y#uny: IF ret 
our=! THEN retour=0:60T0 210 

7365 CLS:PRINT"Coordonnees du point supe 
rieur gauchesx=";SPC(18);"yz" 

7370 GOSUB 7805:x2=x#unx1y2zy#uny: IF ret 
our=! THEN retour=0:60T0 210 

7975 IF y12y2 THEN CLS:PRINT'Erreur ,.." 
:60T0 205 

7380 CLS:PRINT" Longueur de la base :":PR 
INT"I=" 

7385 PEN 2:LOCATE 3,2: INPUT"",1$:PEN 111 
F 1$="" THEN 7385 ELSE IF 1$=CHR$(191) T 
HEN 210 ELSE 1=ABS(VAL (18) )#unx 

7390 PLOT x1,y1:DRAWR 1,0:DRAN x2+1,y2:D 
RAR -1,0:DRAN xi,y1 

7395 GOSUB 10075:60T0 210 

7400 REM ss pro: trapezes 

7405 CLS:PRINT"Coordonnees du point infe 
rieur gauche: "ss: PRINT"xz"; SPC (18); "y2" 
7410 GOSUB 7805:x1=x#unxsyi=yeunys IF ret 
our=1 THEN retour=0:6070 210 

7415 CLS:PRINT"Coordonnees du point supe 
rieur gauche: ";tPRINT"xz";SPC(18);"yz" 
7420 6OSUB 7805:x2=x#unx:y2=y#unye IF ret 
our=1 THEN retour=0:60T0 210 

7425 IF y13y2 THEN CLS:PRINT'Erreur ..." 
16070 205 

7430 CLS:PRINT" Longueur de la grande bas 
e 2"4PRINT"II=" 

7435 PEN 2:LOCATE 4,2: INPUT"",11$:PEN 14 
IF 11#=CHR$(191) THEN 210 ELSE IF 11#="" 
THEN 7435 ELSE 11=ABS (VAL (118) )#unx 
7440 CLS:PRINT"Longueur de la petite bas 

e :'{PRINT"12=" 

7445 PEN 2:LOCATÉ 4,21 INPUT"",1282PEN 1: 
IF 12$=CHR$(191) THEN 210 ELSE IF 124="" 
THEN 7445 ELSE 12=ABS (VAL (128) }#unx 
7450 PLOT x1,y1:DRAWR 11,0:DRAN x2+12,y2 
2DRAMR -12,0:DRAN x1,y1:60SUB 10075:60T0 


210 
7500 REN ss pro: autres figures 


7505 CLS:PRINT cp2$;"1-"s;cpi$; "Polygones 
reguliers ";cp2$:"2-"scpif; "non reguli 
ers" 

7510 g$=INKEYS:1F g$="" THEN 7510 

7515 IF g$=CHR#(191) THEN 210 


7520 IF g$="1" THEN 7555 

7525 IF g$="2" THEN 7650 

7530 6070 7510 

7550 REM ss pro: polygones reguliers 
7553 CLS:PRINT"Nosbre de cotes de ce pol 
ygone :"#PRINT"c=" 

7560 PEN 2:LOCATE 3,2: INPUT"",c$:PEN 121 
F c$="" THEN 7560 ELSE IF c#=CHR#(191) T 
HEN 210 ELSE c=ABS(VAL(c#)) 

7565 CLS:PRINT"Coordonnees du centre du 
polygone: ":PRINT'x=";SPC(18);"y=" 

7570 60SUB 7805:xc=xæunx:yc=y#uny: IF ret 
our=1 THEN retour=0:6070 210 

7575 CLS:PRINT'rayon de ce polygone: ":PR 
INT'r=" 

7380 PEN 2:LOCATE 3,2: INPUT"",r#1PEN Î:1 
F r$="" THEN 7580 ELSE IF r$=CHR$#(191) T 
HEN 210 ELSE r=ABS(VAL(r#)) 

7585 PLOT xc+ræunx,yc:FOR #=0 TO 2#PI ST 
EP 2#Pl/c 

7590 DRAN xc+ræC0S(f)æunx ,yc+r#SIN(f) sun 


Y 
7595 g$=INKEYS:IF g$=CHR$(191) THEN 210 


‘7600 NEXT:DRAW xc+rtunx,yc 


7605 GOSUB 10075:6070 210 

7650 REM 55 pro: polygones non reguliers 
7655 CLS:PRINT"Nosbre de cotes de la fig 
ure :":PRINT'c=" 

7660 PEN 2:LOCATE 3,2: INPUT"" ,c#:PEN rl 
F c$=CHR$(191) THEN 210 ELSE IF c$="" TH 
EN 7660 ELSE c=ABS(VAL(c#)) 

7665 CLS:PRINT"Coordonnees du ler point 
de la figure:x=":SPC(18);"y=" 

7670 GOSUB 7800:xi=xtunx:y1=y#unyt IF ret 
our=! THEN retour=0:607T0 210 

7675 PLOT x1,y11FOR #=2 TO c 

7680 CLS:PRINT"Coordonnees du point no"; 
#5" s "as PRINT'xz"; SPC (18); "yz" 

7685. 60SUB 7800:x=xtunx:y=yæuny: IF retou 
r=1 THEN retour<0:60T0 210 

7690 DRAW x,y 

7695 NEXT:DRAN x1,y1 

7700 GOSUB 10075:60T0 210 

7750 REM 55 pro: droites en xza 

7755 CLS:PRINT"L'equation de la droite e 
st :":PRINT'x=" 

7760 PEN 2:LOCATE 3,2: INPUT"",x$:PEN 111 
F x$="" THEN 7760 ELSE IF x#=CHR$(191) T 
HEN 210 ELSE x=VAL(x4#) 

7765 PLOT xæunx,0:DRAMR 0,400: DRAWR 0,-8 
00 

77170 60SUB 10075:607T0 210 

7800 REM 55 pro: entree des coordonnees 
7805 PEN 2:col23 

7810 LOCATE col,2: INPUT" ",r$ 

7815 IF r#=CHR$(191) THEN retoursl:PEN 1 
RETURN 

7820 IF r$="" THEN 7810 ELSE a=VAL(r$) 
7825 IF col=23 THEN yza:PEN 11RETURN ELS 
E x=à 

7830 col=23:60T0 7810 

10000 REM initialisation ecran-variables 
10005 MODE 1:INK 0,26:INK 1,0: INK 2,15: 
NK 3,0,261PEN 12PAPER OuBORDER 26: MODE 1 
10010 KEY 15B,CHR#(32):KEY DEF 47,1,158: 
KEY 156,CHR$(224):KÉY DEF 9,1,156 

10015 KEY 159,CHR$(191)+CHR$(13):KEY DEF 
68,1,159 

10020 DEF FN f(x)=01equ$="0" 

10025 cp1$=CHR$(15)+CHR$ (1) :cp2$=CHR$(15 


D+CHR$ (2) :cp3#=CHR$ (15) +CHR$ (3) 

10030 IF PEEK(&A000)=0 THEN SYMBOL AFTER 
129 

10035 ax=320:ay=224tunxs30:uny=30 

10040 5=0:RESTORE 10050:F0R #=129 TO 141 

:FOR g=1 TO S:READ cig):s=s+c{g):NEXT:SY 

MBOL #,0,0,0,c(1),c (2) ,c (3) ,c (4) ,c{SINE 

XT:IF 57960 THEN PRINT'Erreur (s) dans 

la ligne 10050"3CHR$(7) END 

10045 520:FO0R f=1 TO 17:LOCATE #+12,25:R 

EAD a: PRINT CHR$(al:s=s+a:NEXT: IF 5()1B8 

3 THEN PRINT'Erreur(s) dans La ligne 100 

55"; CHR$ (7) : END 

10050 DATA 192,192,192,193,125, 31,48,48 

176,159, 60,98,124,98,98, 120,197,197,1 

97,120, 240,136,136,192,252, 123,51,51,1 

79,97, 45,45,45,45,204, 134,134,134,134, 

243, 15,24,30,24,207, 120,48,48,48,48, 9 

4,210,94,66,94, 247,148,247,144,247, 128 

10,128,128,128 

10055 DATA 129,130,131,132,133,32,32,134 

135,136,137,138,32,32,139,140,141 

10060 PLOT 150,0:DRAW 0,0:DRAW 0,50:DRAN 
639,50: DRAN 639,0:DRAW 470,0 

10065 MINDON 40,2,39,23,24 

10070 ORIGIN 320,224,0,639,399,52 

10075 PLOT 0,0,1:DRAWR 640-ax ,0:DRANR -b 

40,0:PLOT 0,0:DRAWR 0,400-ay:DRAWR 0,-40 

0:PLOT 0,0:DRAWR unx,0,2:PLOT 0,0: DRAWR 

0,uny: MOVE 0,0,1 

10080 RETURN 

11000 REX L.M, copieur 

11005 MEMORY L9FFF 

11010 RESTORE 110201s=0:F0R #=kA000 TO & 

AOB9:READ a:POKE f,ass=s+a:NEXT:IF 5()16 
430 THEN PRINT'Erreur(s) dans les lignes 
11020-11035"; CHR# (7) : END 

11013 RETURN 

11020 DATA 17,0,0,33,93,1,6,26,197,62,27 
,205,115,160,62,49,205,115,160,62,27,205 
,115,160,62,75,205,115,160,62,64,205,115 
,160,82,1,205,115,160,229,1,0,7,197,213, 
229,205,240,187,225,209,193,254,1,32,2 
11023 DATA 203,241,58,57,160,214,8,50,57 
1180,43,43,16,229,121,205,115,160,62,241 
150,57,160,225,19,19,122,254,2,32,208,12 
3,254,128,932,203 

11030 DATA 62,10,205,115,160,62,13,205,1 
15,160,193,17,14,0,175,237,82,17,0,0,16, 
150,201 

11035 DATA 205,46,189,56,251,205,43,189, 
205,9,187,254,191,192,49,248,191,62,255, 
50,160,160,201 

12000 REM sessage d'entree 

12005 sessage$="":RESTORE 12020:F0R #=1 
TO 57:READ a$:1F a$="#+" THEN READ aftnes 
sagef=sessagef+cp2$+a$tcpi$:60T0 12015 
12010 sessagef=aessages+af 

12015 NEXT:RETURN 

12020 DATA #,E,q,u,a,t,i,o,n,"  ",#,C,0 
ride" ‘itlnag,e,s," NLIL) 
es triste rs" “secs à 
n° Ro Der ere “itsFs 
ET IL TLELTE 

65000 REM traitement des erreurs 

65005 IF ERR=11 OR ERR=S OR ERR=6 THEN ! 
MPO=1 

65010 IF ERR=2 THEN CLS:PRINT"L'equation 
de la courbe est incorrecte":RESUME 205 
65015 RESUME NEXT 
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Vincent PERNICE 


Etats-Unis vous propose un 
voyage  allez-retour presque 
gratuit pour un pays de rêve. 
Tapez et sauvez le chargeur, 
puis le programme principal. 
Après quelques secondes 
de patience, une carte muet- 
te apparaîtra. 

Ensuite, grâce à un jeu de 
questions-réponses, vous 


30 


aurez la satisfaction d'appren- 
dre que Pierre est la capitale 
du Dakota du Sud et que le 
Texas compte plus de 11 mil- 
lions d'habitants. 


Sauvez le premier programme par 
SAVE "USA" et le second par 
SAVE "EU" immédiatement à la 
suite du premier. 





À REM HERBE 

2 REN # ETATS UNIS + 

3 REM # Pernice Vincent# 

4 REM # novesbre Bb + 

S REM HHHSHEREENEEENEE 

bREM# CHARGEUR # 

7 REN HERBE RER 

10 MODE 1:1NK 0,9:INK 1,12INK 2,202: INK 3 
,19:BORDER 22 

20 k=320:no8$="ETATS UNIS":60SUB 3000 

30 k=240:non$="d'AMERIQUE":G60SUB 3000 

30 LOCATE 14,16:PAPER 1:PEN S:PRINT “Pre 

sente par":PAPER 0 

60 k=100:noa$="PERNICE Vincent":60SUB 30 
00 ‘ 
70 60SUB 10000 

T4 REM LES POSSESSEURS DE 664 OÙ DE 6128 
DOIVENT SUPPRIMER LE REM DE LA LIGNE 75 
T5 REM POKE &9ASD,499:POKE &9ASE ,&Bb: PDK 
E &9A61,497:POKE L9A2,&Bb:POKE L9A94,U3 
E:POKE &9A95,LB6 

80 60SUB 20000 

90 :SCRA,0,39,0,3,4,152 

100 :SCRA,0,39,22,25,4,152 - 

110 :SCRA,0,3,4,22,19,152: :SCRA,36,39,4, 
22,19,152 

120 PLOT 83,332: DRAMR 474,0,1:DRAMR 0,-1 
34,1:DRANR -474,0,1:DRAWR 0,134 


—T30 PLOT 156,324, 1:DRAMR 327,0, 1:DRANR 0 


,-116,1:DRANR -327,0,1:DRAMR 0,118, 

140 PLOT 120,260,3:CALL 49450, 

150 PLOT 194,175,1:DRANR 218,0, 1:DRANR 0 
1-50, 1:DRANR -218,0,1:DRANR 0,50,1 

160 PLOT 293,171,3:CALL 49A50,1 

170 PLOT 49,117,1:DRAMR 506,0, 1:DRANR 0, 


-63,1:DRANR -508,0,1:DRANR 0,65,1 

180 PLOT 78,102,1:DRANR 485,0,1:DRAMR 0, 

34, 1:DRAMR -485,0,1:DRANR 0,34,1 

190 PLOT 305,108,3:CALL &9A50,1 

200 LOCATE 11,24:PEN 2:PRINT "CHARGEMENT 
EN COURS..." 

210 BORDER 21,25:SPEED INK 5,10:RUN "'eu 


3000 chars=LEN(nos$):pixels=chars#B:x=(6 
39-chars#32)/2:LOCATE 1,1:PEN 3:PRINT no 
a$;:PEN Jitx=x:y=k:y2=398:F0R f=1 TO Bix 
2=0:FOR g=1 T0 pixels:1F TEST(x2,y2)=3 T 
HEN PLOT x,y,2:PLOT x,y-2 

3010 PLOT x+2,y:PLOT x+2,y-2:x=x+4:x2=x2 
+2:NEXT g:y=y-4:y2=y2-21x=t:NEXT f:LOCA 
TE 1,1:PRINT SPACES$ (chars): RETURN 

10000 MEMORY &9A4F:FOR F=0 TO 257:READ À 
$ 

10010 POKE &9A50+F ,VAL("&"4LEFTS(A$,2)): 


10030 ‘ codes de la routine 

10040 ‘'zazs==sesseszsssseszesse 

10050 ‘ 

10060 DATA cd,11,bc,32,54,9b,dd,7e,00,32 
,2b,9b,2a,2e,b3,ed,5b,2c,b3,cd,23,9b,32, 
2e,9b,dd,21,52,9b,af 

10070 DATA 32,53,9B,CD,30,98B,CB,2D,CB,25 
,CD,23,98,28,08,CD,30,9b,7A4FE,FF,20,F3, 
CD,41,9B,AF,32,52,9B,E5,D5,CD,EA,BB,D1,E 
1,34,f4,B4 

10080 DATA Eb,80,20,7F,7C,B5,28,30,D5,E5 
,28,28,C0,F0,BB,E1,D1,CD,2A,98,20,06,DD, 
CB,00,86,18,13 

10090 DATA DD,CB,00,46,20,0D,DD,CB,00,Cb 





,D5,2B,28,E5,23,23,0D,34,01,7C,3D,20,05, 

7D,FE,8E,28,27,D5,E5,23,23 

10100 DATA CD,FO0,BB,E1,D1,CD,2A,9B,20,08 

,DD,CB,00,BE,18,13,0D,CB,00,7E,20,0D,DD, 

a Sn 
1, 

10110 DATA 7A,FE,02,20,05,7B,FE,80,30,05 

,CD,23,98,20,85,DD,7E,01,A7,C8,E1,D1,DD, 

35,01,00,23,98,28,F1,03,78,9A,DD,7E,01,A 

7,C8,E1,E1,30,18,FA,DS,ES,CD,F0,BB,E1,DI 

1FE,00,C8 

10120 DATA FE,00,09,3A,54,9B,FE,02,28,08 

,FE,01,28,03,CD,3E,98,1B,1B,C9,3A,54,9B, 

FE,02,28,08,FE,01,28,03,CD,4F,9B,13,13,C 

9 

10130 RETURN 

20000 ‘#### deroule ecran 

20010 MEMORY &9FFF 

20020 RESTORE 200B0:FO0R a=40960 TO 41037 

20030 READ b$:POKE a,VAL("&"+b$) 

20040 v=VAL("&"+b#):POKE a,v:5=5+v 

20050 NEXT à 

20060 IF 5€)9189 THEN PRINT "erreur data 

":STOP 

20070 CALL &A000 

20080 DATA 01,09,a0,21,1a,a0,cd,di 

20090 DATA bc,11,a0,c3,1b,a0,c3,2b 

20100 DATA a0,53,43,52,c4,53,43,52 

20110 DATA c1,00,04,fe,06,c0,dd,46 

20120 DATA 02,c5,06,00,cd,3b,a0,cl 

20130 DATA 10,#7,c9,fe,06,c0,dd,46 

20140 DATA 02,c5,06,01,cd,3b,a0,cl 

20150 DATA 10,47,c9,dd,7e,00,dd,5e 

20160 DATA 04,dd,be,06,dd,56,08,dd 

20170 DATA 66,0a,cd,50,bc,c9 

20180 RETURN 


S MODE 1:INK O,12INK 1,24: INK 2,26: INK 3 
16:BORDER 6 

10 :SCRA,0,39,0,24,25,122 

15 MODE 1:LOCATE 10,2:PRINT "ETATS UNIS" 
20 LOCATE 10,3:PRINT "atteste" 

30 LOCATE 1,5:PEN 2:PRINT " Ce logiciel 

educatif vous persettra de vous apprendr 

e la geographie des ‘ETATS UNIS‘ en un j 

eu de questions-reponses." 

40 PRINT:PRINT 

30 PEN 1:PRINT " Trois possibilites vous 
sont offertes au senu:° 

60 PEN S:PRINT " 1- Apprendre a connaitr 

e les etats et leurs villes." 

70 PEN L:PRINT “ À tour de role chaque e 

tat se colorie et s'inscrivent sa capit 

ale (en rouge), sa ville principale (gro 

s point noir),etsa ville secondaire (pet 

it point noir)." 

80 PRINT " Dans la fenetre du bas leurs 


noss ainsi que la superficie et la popul 

ation de l'etat." 

80 LOCATE 10,24:PRINT "Appuyer sur une t 

ouche ":CALL:&BB06 

100 !SCRA,0,39,0,24,25,232: MODE 1 

110 LOCATE 1,6:PEN S:PRINT * 2- Jouer en 
donnant a chaque etat son nos." 

115 PEN 1:PRINT * Un etat est tire au 50 
rt et vous devez donner son nos (il vous 
est indique sa capitale pour vous aide 
[4 1FS 

120 PRINT "Au bout de 20 essais votre sc 
ore ainsi que votre taux de connaissanc 
e vous est donne." 

125 PRINT:PRINT 

130 PEN S:PRINT " 3- Jouer en donnant a 
chaque etat sa capitale!" 

135 PEN 1:PRINT " Mese principe que prec 
edessent mais ici avec les capitales." 
140 LOCATE 16,24:PRINT “aopuyer sur une 
touche." 

145 CALL &BB06 

150 :SCRA,0,39,0,24,25,111:60TD 600 

200 PLOT 47,322,C:60SUB 253:RETURN: ‘WASH 
INGTON 

201 PLOT 47,286,C:60SUB 253:RETURN'DREGD 
N 

202 PLOT 29,214,C:60SUB 253:RETURN: 'CALI 
FORNIE 

203 PLOT 83,214,C:60SUB 253:RETURN: ‘NEVA 
DA 

204 PLOT 101,178,C:60SUB 253:RETURN: ‘ART 
10NA 

205 PLOT 119,214,C:60SUB 253:RETURN: ‘UTA 
H 

206 PLOT 101,268,C:60SUB 253:RETURN: ‘IDA 
HO 

207 PLOT 137,304,C:60SUB 253:RETURN: "MON 
TANA 

208 PLOT 155,250,C:60SUB 253:RETURN: ‘WYO 
MING 

209 PLOT 173,196,C:60SUB 253:RETURN: ‘COL 
ORADO 

210 PLOT 173,160,C:60SUB 253:RETURN: ‘NEW 
MEXICO 

211 PLOT 227,124,C:60SUB 253:RETURN: ‘TEX 

A5 

212 PLOT 245,160,C:60SUB 253:RETURN: "DKL 


“AHOMA 


213 PLOT 245,196,C:60SUB 233:RETURN: 'KAN 
SAS 

214 PLOT 227,232,C:60SUB 253:RETURN: °NEB 
RASKA 

215 PLOT 227,268,C160SUB 253:RETURN: "DAK 
OTA SUD 

216 PLOT 227,304,C:60SUB 253:RETURN: "DAK 
OTA NORD 

217 PLOT 263,286,C:60SUB 253:RETURN: "MIN 
NESOTA 

218 PLOT 281,250,C:60SUB 253:RETURN: 10W 
À 

219 PLOT 281,214,C:60SUB 253:RETURN: "MIS 
SOURI 

220 PLOT 294,160,C:60SUB 253:RETURN: ‘ARK 
ANSAS 

221 PLOT 294,108,C:60SUB 253:RETURN: "LOU 
ISTANE 

222 PLOT 320,134,C:60SUB 233:RETURN: "MIS 
SI5SIPI 

223 PLOT 346,134,C:60SUB 233:RETURN: ‘ALA 


BAMA 

224 PLOT 385,147,C:60SUB 253:RETURN: ‘GEO 

RGIE 

225 PLOT 411,95,C:60SUB 253:RETURN: ‘FLOR 
IDE 

226 PLOT 411,160,C:60SUB 253:RETURN: CAR 

OLINE SUD 

227 PLOT 411,186,C:60SUB 253:RETURN: ‘CAR 

OLINE NORD 

228 PLOT 333,173,C:605UB 253:RETURN: ‘TEN 

NESSEE 

229 PLOT 346,199,C:60SUB 233:RETURN: ‘KEN 
TUCKY 

230 PLOT 411,212,C:CALL 49AS0,1 

231 PLOT 435,220,C:60SUB 253:RETURN: ‘VIR 

GINIE 

232 PLOT 71,90,C:60SUB 233:RETURN: "ALASK 

À 

233 PLOT 452,276,C:60SUB 259:RETURN: CON 
NECTICUT 

234 PLOT 430,232,C:60SUB 253:RETURN: "DEL 
ANARE 

235 PLOT 313,50,C:CALL &9A50,1:PLOT 285, 
62,C:60SUB 253:RETURN: HAMAI 

236 PLOT 313,219,C:6CSUB 253:RETURN: LL 
INOIS 

237 PLOT 339,232,C:60SUB 253:RETURN: ‘ IND 
IANA 

238 PLOT 464,320,C:60SUB 253:RETURN: "MAI 
NE 

239 PLOT 418,232,C:60SUB 253:RETURN: ‘MAR 
YLAND 

240 PLOT 452,288,C:CALL &9AS0,1:PLOT 464 
,280:60SUB 253:RETURN: ‘MASSACHUSSETS 

241 PLOT 339,271,C:CALL &9A50,1 

242 PLOT 326,305,C:60SUB 253: RETURN: 'MIC 
HIGAN 

243 PLOT 452,302,C:60SUB 253:RETURN: "NEW 
HAMPSHIRE 

244 PLOT 437,251 ,C:60SUB 293:RETURN: 
JERSEY 

245 PLOT 410,272,C:60SUB 253:RETURN: * 
YORK 

246 PLOT 361,230,C:60SUB 253:RETURN: ‘ 

0 

247 PLOT 418,251,C:60SUB 253:RETURN: 
NSYLVANIE 

248 PLOT 462,276,C:60SUB 253:RETURN: RHO 
DE ISLAND 

249 PLOT 440,302,C:60SUB 253:RETURN: ‘VER 
NONT 

250 PLOT 386,215,C:60SUB 253:RETURN: ‘VIR 
GINIE OCCIDENTALE 

251 PLOT 301,285,C:60SUB 253:RETURN: 
CONSIN 

252 PLOT 416,227,C:60SUB 253:RETURN: 

F COLUMBIA 

253 CALL &9A50,12RETURN 

300 DATA WASHINGTON, OLYMPIA, SEATTLE, SPOK 
ANE,176.617,3,409,000,44,321,50,326,82,3 
21 

301 DATA OREGON, SALEN, PORTLAND EUGENE , 25 
1.180,2.091.000,35,295,40,297,33,285 

302 DATA CALIFORNIE, SACRAMENTO,LOS ANGEL 
ES, SAN FRANCISCO,411,000,20.468.000,30,2 
29,49,164,24,212 

303 DATA NEVADA,CARSON-CITY,LAS VEGAS,RE 

N0,286.297,489.000,48,221,78,184,47,22b 

304 DATA ARIZONA ,PHOENIX, TUCSON, PRESCOTT 
1295,022,1.772,000,103,146,116,132,105,1 





4 
305 DATA UTAH,SALT LAKE CITY, PROVO,OGDEN 
1219.932,1,059.000,116,228,120,222,117,2 
36 

306 DATA IDAHO,BOISE,LEMISTON,TNIN FALLS 
,216.412,713,000,91,269,90, 300,98, 259 
307 DATA MONTANA,HELENA,GREAT FALLS,BILL 
IN6S,381.088,694, 000, 128,300, 140,306, 152 
,290 

308 DATA NYOMING,CHEYENNE, SHERIDAN, CASPE 
R,253, 597,322. 000,179,236,185,270,169,25 
2 

309 DATA COLORADO, DENVER, COLORADO-SPRING 
S,PUEBLO, 270, 000,2. 357.000,178,216, 182,2 
10,184,201 

310 DATA NOUVEAU MEXIQUE, SANTA FE, ALBUQU 
ERQUE LOS ALAMDS,315.000,1,016.000,171,1 
89,182,159,183,173 

311 DATA TEXAS,AUSTIN,HOUSTON, DALLAS, 692 
.403,11,197,000,230,108,282,98, 246, 129 
312 DATA OKLAHOMA,DKLAHOMA-CITY, TULSA, LA 
NTON,295. 022, 1,772.000,246, 166,258, 173,2 
37,181 

313 DATA KANSAS, TOPEKA,KANSAS-CITY,NICHI 
TA,213,063,2. 249,000, 256, 205,264, 205,248 
193 

314 DATA NEBRASKA,LINCOLN, DMAHA,FREMONT, 
200.017,1.484, 000, 248,226, 254,232, 247,23 
7 


315 DATA DAKOTA DU SUD, PIERRE, SIOUX-FALL 
S,RAPID CITY, 199,551,666. 000,221, 271,249 
,282,199,266 

316 DATA DAKOTA DU NORD,BISMARCK,FAREO,6 
RAND FORKS, 183. 022,618. 000,212, 300,242,3 
03,241,313 

317 DATA MINNESOTA,ST PAUL ,DULUTH,MINNEA 
POL1S,217,735,3.805.000,278,280,290,311, 
276,276 

318 DATA IOWA,DES MOINES, DAVENPORT WATER 
L00,145, 790,2, 825, 000,275, 243, 298, 244,28 
7,253 

319 DATA MISSOURI ,JEFFERSON-CITY,ST LOUI 
S,KANSAS CITY,180.456,4,677.000,286,203, 
299,205, 272,209 

320 DATA ARKANSAS,LITTLE ROCK, FORT SMITH 
 FAYETTEVILLE, 137, 539,1923.000,290,181,2 
79,183,279,170 

321 DATA LOUISIANE, BATON ROUGE NEW ORLEA 
NS,SHREVEPORT, 125. 674,3, 843, 000,309, 106, 
320,102,285,129 

322 DATA MISSISSIPI, JACKSON, BILOXI ,MERID 
IAN,123,584,2.217.000,318,132,327,114,32 
4,134 

323 DATA ALABAMA,MONTBOMERY , BIRMINGHAM, 
OBILE,133.667,3.444,000,352,139,345,151, 
338,118 

324 DATA GEORGIE ATLANTA, MACON, COLUMBUS, 
152,488,4,590,000,377,155,385, 149,373, 14 
2 

325 DATA FLORIDE, TALLAHASSEE ,MIAMI , TANPA 
1151,670,6,789,000,381,120,433,75,407,93 
326 DATA CAROLINE DU SUD, COLUMBIA, BREENV 
ILLE ,CHARLESTON, 80, 432,2. 685. 000,407, 167 
,394,171,415,155 

327 DATA CAROLINE DU NORD,RALEIBH CHARLO 
TTE,GREENSBORO, 136. 197,5. 214.000,412, 188 
13%,183,400, 192 

328 DATA TENNESSEE ,NASHVILLE,MEMPHIS, CHA 
TTANOOGA, 109, 412,3, 924,000,345,180,311,1 
89,356,172 


329 DATA KENTUCKY,FRANKFORT ,LOUISVILLE,L 
EXINGTON, 104,623,3.183.000,352,203,348,2 
06,356,202 

330 DATA VIRGINIE ,RICHMOND NORFOLK , ROANO 
KE,105.716,4,648,000,416,208,427,206,402 
1205 

331 DATA ALASKA,JUNEAU, ANCHORAGE ,FAIBANK 
5,1,320,000,352,000,113,55,75,71,79,88 
332 DATA CONNECTICUT,HARTFORD,NEN HAVEN, 
MATERBURY, 12, 973,3.082,000,448,276,445,2 
72,454,278 

333 DATA DELANARE,DOVER,WILHINGTON,* ",5 
328,548,000,429,234,431,231,0,0 

334 DATA HANAI ,HONOLULU,HANI ,HILO, 16.600 
:770,000,285,58,304,61,320,50 

335 DATA ILLINOIS,SPRINGFIELD,CHICAGO,PE 
ORIA,148,075,11,114.000,308,221,312,244, 
304,232 

336 DATA INDIANA, INDIANAPOLIS,FORT-WAYNE 
EVANSVILLE,94,000,5,194.000,335,227,340 
1240,331,207 

337 DATA MAINE,AUGUSTA,PORTLAND,LEWISTON 
,86,027,985.000,466,309,460,298,462,304 
338 DATA MARYLAND,ANNAPOLIS, BALTIMORE ,HA 
BERSTONN,27,394,3,922.000,419,220,426,22 
7,402,230 

339 DATA MASSACHUSSETTS, BOSTON, NORCESTER 
,SPRINGFIELD,21,385,5.689.000,456,285,45 
0,286,445,282 

340 DATA MICHIGAN,LANSING,DETROIT,FLINT, 
150,780,8.875,000,345,263,356,258,352,26 
b 

341 DATA NEW HAMPSHIRE ,CONCORD ,MANCHESTE 
R,BERLIN,24,097,738,000,451,300,452,297, 
452,306 ‘ 

342 DATA NEW JERSEY,TRENTON,JERSEY-CITY, 
CANDEN,20,295,7.168,000,434,244,437,253, 
436,238 

343 DATA NEW YORK,ALBANY,NEW YORK, BUFFAL 
0,128,400,18,237.000,435,278,445,259,400 
,268 

344 DATA OHIO,COLUMBUS ,CLEVELAND,CINCINN 

AT1,106.765,10.653,000,360,232,368,242,3 

56,220 

345 DATA PENNSYLVANIE ,HARRISBURG , PHILADE 

LPHIE,PITTSBURGH,117,412,11,794,000,409, 

242,425,242,391,240 

346 DATA RHODE ISLAND ,PROVIDENCE , NEWPORT 
.WARMICK,3144,950,000,0,0,0,0,462,276 

347 DATA VERMONT ,MONTPELIER, RUTLAND ,NEWP 

ORT,24,887,445,000,443,308,443,296,443,3 
14 

348 DATA VIRGINIE OCCIDENTALE ,CHARLESTON 
1HUNTINGTON,NEELING,62,829,1,744,000,382 
,213,377,208,385,220 

349 DATA WISCONSIN,MADISON,MILHAUKEE , APP 
LETON,145,384,4,418,000,307,265,317,270, 
311,280 

350 DATA DISTRICT OF COLUMBIA, NASHINGTON 
" "s" "174,748,000,0,0,0,0,416,227 

351 RETURN 

600 ‘## aessage d'attente 

610 MODE 1:INK 1,24:PEN 1: INK 0,0:LOCATE 
2,221PRINT "VEUILLEZ PATIENTER QUELQUES 
SECONDES !" 

620 LOCATE 12,24:PRINT "CHARGEMENT de L' 
ECRAN. .":FOR i=1 TO 2000:NEXT: INK 1,24,2 
&:FOR is1 TO 1000:NEXT 

630 INK 1,0 

999 ‘##### ecran carte titre” 


1060 MODE 1:0RIGIN 0,40: INK 0,0: INK 1,0: 
INK 2,0:INK 3,0:BORDER 1 

1010 WINDON #1,2,39,22,25:WINDOW }2,32,3 
9,2,12:WINDON #3,32,39,14,20 

1020 PEN #1,3:PAPER #1,2:PEN 82,2: PAPER 
#2,3:PAPER #3,0:PEN 83,1 

1030 CLS #1:CLS #2:CLS #3 

1035 SYMBOL 250,0,0,56,56,56,0,0,0 

1040 DIM E$(51),C$1511,V18151),V2$(51),S 
#151),P#151),ET#151) ,AL(S1) ,A2151) ,B11S1 
1,82151),01(51),02(51) ,VC$ (51) ,COUP (20) 
1045 RESTORE 1650 

1050 PLOT 42,350:F0R i=1 TO 11:2READ a,b: 
DRAWR a,b,1:NEXT: 'washington 

1060 PLOT 30,313:FOR i=1 T0 7:READ a,b:D 
RAR a,b,1:NEXT: ‘oregon 

1070 PLOT 16,269,1:F0R i=1 TD 20:READ à, 
b:DRAWR a,b,1:NEXT: 'californie 

1080 PLOT 90,335:F0R i=1 TO 13:READ a,b: 
DRAWR a,b:NEXT: ‘idaho 

1090 PLOT 99,333,1:F0R iz1 TO J:READ a,b 
2DRAMR a,b,1:NEXT: 'aontana 

1100 PLOT 188,277:F0R i=1 TO J:READ ab: 
DRAWR a,b,1:NEXT: 'Nyoming 

1110 PLOT 101,251:F0R i=1 TO J:READ a,be 
DRAWR a,b,1:NEXT: Nevada 

1120 PLOT 91,193:FO0R is1 T0 2:READ a,b:D 
RAWR a,b,L:NEXT: "Utah 

1130 PLOT 77,140:F0R i=1 TO 4:READ à,b1D 
RAWR a,b,1:NEXT: "Arizona 

1140 PLOT 133,120:FO0R iz1 TO 7:READ a,b: 
DRAMR a,b,12NEXT: Nouveau Mexique 

1150 PLOT 188,230,1:F0R i=1 TO J:READ a, 
b:DRAMR a,b,1:NEXT: Colorado 

1160 PLOT 156,122:F0R is1 TO 20:READ a,b 
tDRANR a,b,12NEXT s "TEXAB 

1170 PLOT 203,182:F0R 1z1 TO 2:READ ab: 
DRAWR a,b,1:NEXT: "Oklahona 

1180 PLOT 271,183:F0R iz1 TO 4:READ a,bi 
DRAWR a,b,1:NEXT: 'kansas 

1190 PLOT 267,2171F0R 1=1 TO 101READ a,b 
2 DRAWR a,b,1:NEXT: 'nebraska 

1200 PLOT ?255,249:F0R is1 TO 3:READ a,bi 
DRAWR a,b,1:NEXT s'Dakota du sud 

1210 PLOT 251,289:F0R il TO 2:READ abs 
DRAWR a,b,1:NEXT: "Dakota du nord 

1220 PLOT 245,323:F0R iz1 T0 10:READ a,b 
:DRAWR a,b,1:NEXT:" Minnesota 

1230 PLOT 293,262:F0R iei TO 9:READ a,bt 
DRAWR a,b,1:NEXT: "ioma 

1240 PLOT 292,229:F0R i=1 T0 17:READ a,b 
DRANR a,b,1:NEXT: ‘Missouri 

1250 PLOT 310,176:FO0R i=1 TO S:READ a,b: 
DRANR a,b,1:NEXT: ‘Arkansas 

1260 PLOT 281,96:F0R is1 TO 18:READ a,b: 
DRANR a,b,1:NEXT: "Louisiane 

1270 PLOT 321,110:F0R i=1 T0 3:READ a,b: 
DRAMR a,b,1:NEXT : "MISSISSIPI 

1280 PLOT 334,110:F0R iz1 TO 9:READ a,b: 
DRAMR a,b,1:NEXT: 'Alabaa 

1290 PLOT 352,112:F0R iz1 TO 16:READ à,b 
2DRAWR a,b,1:NEXT: "FLORIDE 

1300 PLOT 361,168:F0R iz1 TO 8:READ a,b: 
DRAWR a,b,1:NEXT: ‘Georgie 

1310 PLOT 385,171:F0R iz1 TO 6:READ a,b: 
DRAWR a,b,1:NEXT: Caroline du sud 

1320 PLOT 313,183:F0R i=1 TO 4:READ a,b: 
DRAMR a,b,1:NEXT: Tennessee 

1330 PLOT 383,195:F0R iz1 TO 9:READ a,b: 
DRAMR a,b,1:NEXT: Caroline du nord 





1340 PLOT 313,193:F0R iz=1 TO 9:READ a,b: 
DRAWR a,b,1:NEXT:'illinois 

1350 PLOT 324,200:F0R i=1 TO 121READ a,b 
#DRAWR a,b,1:NEXT: KENTUCKY 

1360 PLOT 377,201:F0R =1 TO 13:READ a,b 
#DRAWR a,b,L:NEXT & "VIRGINIE 

1370 PLOT 321,246:F0R iz1 TO 43READ a,b: 
DRAWR àa,b,1:NEXT: "INDIANA 

1380 PLOT 371,209:F0R is1 TO 11:2READ a,b 
#DRANR a,b,1:NEXT: "OHIO 

1390 PLOT 385,230:F0R si TO 4:READ à,b: 
DRANR a,b,1:NEXT: "virginie occidentale 
1400 PLOT 396,233:F0R i=1 TO B:READ ab: 
DRAWR a,b,12NEXT: "MARYLAND 

1410 PLOT 428,224:FO0R i=1 TO 3:READ a,b: 
DRAWR a,b,1:NEXT: 'VIRGINIE (COMPLEMENT 
1420 PLOT 426,237:F0R iz1 TO J:READ ab: 
DRAWR a,b,1:NEXT: 'Delaware 

1430 PLOT 317,253:F0R i=1 TO 10:READ a,b 
#DRANR a,b:NEXT: "WISCONSIN 

1440 PLOT 308,307:F0R iri TO 13:READ a,b 
:DRANR a,b:NEXT: "MICHIGAN 1 

1450 PLOT 328,248:F0R i=1 TO 12:READ a,b 
#DRAWR a,b:NEXT: "MICHIGAN 2 

1460 PLOT 377,255:F0R i=1 TO 9:READ a,b: 
DRAWR a,b1NEXT: "PENNSYLVANIE 

1470 PLOT 435,235:F0R 131 TO 4:READ a,b: 
DRAWR a,b:NEXT: "NEW JERSEY 

1480 PLOT 443,255:F0R is1 TO 14:READ à,b 
2DRANR a,beNEXT: ‘new york 

1490 PLOT 440,285:F0R izi TO 5:READ a,b: 
DRAWR a,biNEXT: veraont 

1500 PLOT 447,289:F0R is1 TO 41READ à,b: 
DRAWR a,b:NEXT: NEW HAMPSHIRE 

1510 PLOT 452,318:FO0R iz=1 TO 14:READ a,b 
#DRANR a,b:NEXT: "HAINE 

1520 PLOT 441,276:F0R iz1 TO B:READ a,be 
DRAWR a,b:NEXT: "MASSACHUSSETS 

1530 PLOT 447,283:F0R i=1 TO J:READ a,b: 
DRAWR a,b:NEXT:"CONNECTICUT 

1540 PLOT 459,272:F0R ie TO 2:READ a,br 
DRAWR a,btNEXT: 'RHODE ISLAND 

1550 PLOT 36,52:F0R is1 TO 38:READ a,b:D 
RAWR a,b: NEXT: 'ALASKA 

1560 PLOT 303,64:F0R i=1 TO 14:READ a,b: 
DRAWR a,b:NEXT :PLOT 282,67:F0R Ie1 TO 4 
SREAD A,B:DRAWR A,B:NEXT: "HAWAI 

1570 PLOT 411,229:F0R 1=1 TO 2:READ A,Br 
DRAWR A,BaNEXT: DISTRICT OF COLUMBIA 
1580 PLOT 360,255:F0R i=1 TO 5:READ a,b: 
DRAWR a,b,1:NEXT: "LAC ERIE 

1590 PLOT 300,316:FOR iz1 T0 17:READ a,b 
#DRAWR a,b,13NEXT: "LACS SUPERIEUR-HURON- 
NICHIGAN 

1600 PLOT 395,275:F0R iz1 TO 4:READ ab: 
DRAWR a,b,12NEXT: "LAC ONTARIO 

1610 PLOT 42,355:DRAMR 0,-5:PLOT 54,142: 
DRAWR 4,-11:PLOT 247,48: DRAWR -1,-10:DRA 
WR -5,-11:PLOT 481,332:DRANR 10,0:PLOT 9 
5,107:DRAMR 13,-3:DRAMR 0,7:PLOT 122,30: 
DRAMR 0,-3: 'FRONTIERES 

1820 PLOT 4,354:DRANR 0,-328,1:DRAMR 486 
10,12DRAMR 0,328,1:DRAMR -486,0,1:PLOT S 
,130:DRAWR 74,0,1:DRAWR 62,-32,1:DRAWR 0 
,-72,1:PLOT 270,26:DRAMR 0,50, 11DRANR 70 
10,12 DRAMR 0,-50,1:PLOT 275,26: DRAUR 0,4 
6,1:DRANR 62,0,1:DRAMR 0,-46,1 

1630 PLOT 5,126:DRAMR 70,0,1:DRAWR 61,-3 
0,1:DRAMR 0,-67,1 











1640 ‘washington 
1650 DATA 0,-2,4,0,0,-6,0,-10,-16,8,0,-2 
6,6,0,6,-12,42,0,6,34,-44,5 

1660 ‘oregon 

1670 DATA -14,-30,0,r14,60,-14,6,22,-2,4 
,8,10,-4,10 

1680 ‘californie 

1690 DATA 0,-6,-6,-10,2,-20,4,-14,8,0,-b 
176,0,-4,4,-4,-2,-4,6,-24,12,-6,2,-4,4,0 
10,-8,6,-6,4,-14,22,-2,8,20,-42,60,6,38 
1700 ‘idaho 

1710 DATA 8,-2,-2,-12,4,-8,0,-4,6,-8,-2, 
-12,4,0,4,-10,2,0,2,-4,12,4,-2,-34,-52,8 
1720 ‘sontana 

1730 DATA 92,-10,-2,-46,-b0,2 

1740 ‘WYOMING 

1750 DATA 0,-46,-60,4,-2,12 

1760 ‘Nevada 

1770 DATA -10,-68,-b,0,-4,-12° 

1780 ‘Utah 

1790 DATA 50,-6,6,46 

1800 ‘Arizona 

1810 DATA 6,-4,30,-16,20,0,8,6b 

1820 ‘Nouveau Mexique 

1830 DATA 8,-2,2,4,14,0,0,2,36,0,4,60,-5 
6,2 

1840 "Colorado 

1850 DATA 16,-2,-2,-46,-b,-2 

1860 ‘TEXAS 

1870 DATA 14,-14,6,-14,12,-6,6,10,6,0,6, 
-4,16,-26,0,-8,24,-10,-4,16,8,14,20,14,1 
0,2,0,24,-2,6,0,2,-4,14,-52,10,0,20,-26, 
0 

1880 ‘oklahosa 

1890 DATA 6B,0,4,-40 

1900 ‘Kansas 

1910 DATA -2,26,-2,4,0,2,-60,0 

1920 ‘Nebraska 

1930 DATA -8,8,0,6,-2,4,0,4,-4,10,-4,0,- 
6,4,-4,-1,-1,1,-50,0 

1940 ‘Dakota du sud 

1950 DATA -4,40,-30,-3,-30,2 

1960 ‘Dakota du nord 

1970 DATA -6,34,-52,0 

1980 ‘Minnesota 

1990 DATA 14,0,20,-8,22,0,-16,-18,0,-b,- 
4,-6,0,-8,12,-8,0,-6,-40,0 

2000 ‘IOWA 

2010 DATA 2,-6,6,-4,1,-8,-4,-b,-4,0,0,-2 
1-2,-4,-6,-30,0 

2020 'Hissouri 

2030 DATA 2,-8,2,-1,2,-5,2,-2,4,-8,2,0,1 
19 04-4,2,-4,0,-4,2,0,1,-1,-6,-6,0,-4,- 
6,0,0,6,-34,-7 

2040 ‘Arkansas 

2050 DATA -4,-8,0,-4,-2,-10,-6,-16,-22,- 
4 

2060 ‘Louisiane 

2070 DATA 2,2,12,0,4,2,8,-6,8,0,4,4,B,-4 
12-614,0,6,-10,0,0,5,8,0,-4,6,-16,0,0 
6,4,8,-6,8 

2080 ‘HISSISIPI 

2090 DATA 12,1,-4,54,-22,-1 

2100 ‘Alabasa 

2110 DATA 4,4,4,-2,8,1,-4,8,24,2,-1,10,0 
10,-8,30,-30,-4 

2120 ‘FLORIDE 

2130 DATA 12,2,6,-1,1,-4,10,0,2,4,18,-12 
14,720,24,-20,6,0,2,16,-6,14,-18,36,0,4, 
-4,0,0,-2,-44,-b 





2140 "GEURGIE 

2150 DATA 24,2,2,-4,-4,2,2,-4,6,-2,4,-6, 
14,-12,2,-17 

2160 ‘caroline du sud 

2170 DATA 10,6,8,3,4,-4,10,1,14,-B,-20,- 
24 

2180 ‘TENNESSEE 

2190 DATA 70,12,-2,-8,-4,-2,-10,-14 

2200 ‘Caroline du nord 

2210 DATA 54,10,6,-4,-4,-6,4,0,0,-6,-6,- 
2,4,-2,0,-4,-8,-10 

2220 ‘Illinois 

2230 DATA 6,0,2,4,2,0,-1,4,4,14,-4,6,-2, 
22,-5,10,-18,-1 

2240 "KENTUCKY 

2250 DATA 4,0,4,-2,6,5,1,-1,4,0,-1,6,6,8 
180,2,-3,12,1,10,-15,-4,-6 

2280 ‘VIRGINIE 

2270 DATA 0,2,10,2,10,14,1,0,4,10,5,0,1, 
1,6,-4,5,-10,2,-3,9,0,1,-1,3,-8 

2280 ‘indiana 

2290 DATA 6,1,2,2,16,2,6,-35 

2300 ‘OHIO 

2310 DATA 4,4,0,6,4,0,0,4,4,2,0,12,-6,18 
,710,-8,-10,0,0,4,-12,-1 

2320 "VIRGINIE OCCIDENTALE 

2330 DATA 1,-5,10,6,2,-4,12,2 

2340 "HARYLAND 

2350 DATA 30,3,4,-8,6,-1,-1,-4,-8,0,-4,5 
571,713,-4,0 

2360 ‘VIRBINIE (cosplesent) 

2370 DATA 2,-8,4,0,4,8 

2380 ‘Delaware 

2390 DATA 4,4,8,-10,-2,-2 

2400 "WISCONSIN 

2410 DATA 4,18,2,4,2,8,-4,-2,4,12,-1,4,- 
18,10,-8,0,0,4,-3,0 

2420 'HICHIGAN 1 

2430 DATA 14,10,1,0,0,1,-2,-2,2,-1,4,-2, 
18,2,8,-6,-2,-2,-10,0,-6,-8,-4,2,-4,-4 
2440 "HICHIGAN 2 

2450 DATA 3,8,-4,14,3,12,8,12,12,-2,2,-1 
0,-2,-8,4,0,4,4,2,0,4,-10,-6,-16 

2460 ‘PENNSYLVANIE 

2470 DATA 10,6,6,0,8,4,20,2,8,-5,0,-12,4 
10,-4,-6,-1,-2 

2480 ‘NEW JERSEY 

2490 DATA 6,-2,2,20,-2,4,-10,4 

2500 ‘new york 

2510 DATA 14,8,-1,6,-9,-7,-4,2,-8,48,-6, 
-2,-12,-16,3,-6,-3,-6,-10,0,-10,-5,0,-5, 
-b,-4,-5,-10 

2520 ‘VERMONT 

2530 DATA 7,4,-1,14,2,6,-1,10,-12,-4 
2540 ‘new haspshire 

2550 DATA 12,6,-6,18,-3,3,-3,4 

2560 ‘HAINE 

2570 DATA 2,16,4,14,10,2,6,-2,0,-6,6,-10 
1610,-4,-4,4,-4,-10,-10,-1,1,-10,-12,-1, 
-10,-5,-1 

2580 ‘'sassachussets 

2590 DATA 12,6,4,1,6,-4,6,2,0,1,-2,2,-4, 
-1,-4,12 

2600 "CONNECTICUT 

2610 DATA 0,6,12,6,0,5 

2620 ‘RHODE ISLAND 

2630 DATA 6,0,0,6 

2640 *ALASKA 

2650 DATA 12,0,14,8,-2,5,10,6,-2,-14,10, 
5,26,-10,2,2,10,-12,6,-12,4,2,-10,25,-2, 





0,-1,4,-8,0,-2,4,-4,2,-4,42,-12,4,-4,1,- 
4,4,-2,-2,-6,6,-18,-10,2,-14,-8,4,-6,-4, 
4,-6,10,-2,0,-4,-10,-2,-2,-4,1,-10,4,0,- 
1,-8,-12,-1,0,-4,14,-6 

2660 'HANAI 

2870 DATA 4,0,16,-4,0,-6,b,-4,0,-4,-16,- 
6,-6,-8,-8,4,-4,10,6,6,0,4,-4,0,0,4,4,2, 
10,-4,0,-10,-10,4,0,10 

2680 ‘DISTRICT OF COLUMBIA 

2690 DATA 7,2,1,-6 

2700 "LAC ERIE 

2710 DATA 6,0,10,14,4,0,6,4,4,0 

2720 "LACS SUPERIEUR-HURON-MICHIGAN 

2730 DATA 4,6,4,-2,8,6,3,-5,2,6,14,0,8,- 
6,6,-1,7,-10,6,-1,16,-6,8,-8,0,-5,-6,0,- 
6,6,-4,-24,-4,-6 

2740 ‘LAC ONTARIO 

2750 DATA -6,1,12,12,6,0,8,6 

2760 PLOT 11,204,3:CALL &9A50,1:PLOT 479 
,168,3:CALL 49A50,1:PLOT 280,60,3:CALL k 

9A50,1:PLOT 17,60,3:CALL &9A50,1 

2770 PLOT 140,344,1:CALL &9A50,1 

2780 PLOT 152,86,1:CALL &9A50,1:PLOT 128 
,86,1:CALL &9A50,1 

2790 PLOT 360,301,3:CALL &9A50,1:PLOT 37 

9,265,3:CALL &9A50,1:PLOT 412,288,3:CALL 
&9A50,1: "LACS 

2800 PEN 2:LOCATE 11,1:PRINT "XETATS UNI 
SX" INK 0,6: INK 1,0: INK 2,262 INK 3,5 
3000 ‘#48 MENU HER 

3010 BORDER 1:CLS #3:CLS #2: INK 2,26:L0C 

ATE #2,1,1:PRINT #2," X MENU X "1 

3020 LOCATE #2,1,3:PRINT #2,"1-COURS" 
3021 LOCATE #2,1,4:PRINT #2," de GEO" 
3030 LOCATE #2,1,6:PRINT #2,"2-ETATS" 
3040 LOCATE #2,1,8:PRINT #2,"3-VILLES"; 

3050 a$=INKEYS:IF a$="" THEN 3050 

3051 IF a$<"1" OR a$)"3" THEN 3050 

3052 IF A$="C" THEN G0TO 29000 

3070 ON VALIAS) 60TO 4005,5005,20000 

4000 ‘#t#t## etat (glossaire) ####### 

4005 BORDER 8 

4010 CLS #1 

4015 CLS #2:LOCATE #2,2,1:PRINT #2," XCOU 
RSX":LOCATE #3,2,2:PRINT #3,"XENTERA":PR 
INT #3,"-DMENU":LOCATE #3,2,5:PRINT #3," 
KESPACEX";: PRINT #3,"-)SUITE":RESTORE 3 
00:FOR Iz1 TO SI:READ E$(1),C#(1),VI$(1) 
V2801,S801) ,P$CI) ,AL(I) ,A2(1) ,B1(1),B2 
(13,C101),C2(1) 

4020 PEN #1,1:LOCATE #1,1,1:PRINT #1,"ET 

AT: "eLOCATE #1,1,22PRINT #1, "CAPITALE: "+ 

LOCATE #1,1,32PRINT #1,"V.PR:":LOCATE #1 
11 #PRINT 41," SUP: ":LOCATE #1,15,4:PRIN 

T #1,"POP:" 

4030 PEN #1,0:LOCATE #1,8,1:PRINT #1,E$( 
D':LOCATE #1,11,2:PRINT #1,C$(1);:PEN #1 
,0:PRINT #1,CHR$(250):PEN #1,1:LOCATE #1 
6, SPRINT #1,VIS(I)3CHRS#(250);" "5 V28( 
13" "yCHRS(144):LOCATE #1,6,4:PRINT #1, 

S$CL):LOCATE #1,20,4:PRINT #1,P#(1):C=2: 

6OSUB 4070 

4035 0=2:01=0:02=1:03=3:PLOT AL(I) ,A2(1) 
,81:60SUB 4100:PLOT B1(1),B2(1) ,02:60SUB 
4100:PLOT CH(1),C2(1),03 

4040 a$=INKEYS:IF a$="" THEN 4040 

4050 IF a$=CHR$(13) THEN C=0:60SUB 4065: 

GOSUB 4070:CL5 #1:60T0 3010 ELSE C=0:60S 

UB 4065:60SUB 4070:CLS #1:NEXT 

4060 GOTO 3010 


4065 Qi=2102=2:03=21PLOT A1(1) ,A2(1) 01: 
GOSUB 4100:PLOT B1(1),B2(1) ,02:60SUB 410 
O:PLOT C1(1),C2(1),03 

4070 ON I GOSUB 200,201,202,203,204,205, 
206,207,208,209,210,211,212,213,214,215, 
216,217,218,219,220,221,222,223,224,225, 
226,227,228,229,230,232,233,234,235,236b, 
237,238,239,240,241,243,244,245,246,247, 
248,249,250,251,252 

4080 RETURN 

4100 DRAMR 0,2:DRANR 2,0:DRANR 0,-2:DRAN 
R -2,0:RETURN 

5000 ‘##s#s JEU ###+###44 

5005 BORDER 22: SCORE =0:ESSA1=0 

3010 CLS #1:CLS #2:CLS #3: INK 2,24:PEN # 
1,1 

3020 LOCATE #2,1,1:PRINT #2,"X ETATS 

3030 LOCATE #3,1,1:PRINT #3," XSCORE:X" 

3040 LOCATE #3,1,3:PRINT #3,"XESSAI:X" 

5050 RESTORE 300:FOR Y=1 T0 51:READ E$(Y 
DCS CV) VAS UV) ,V28(Y),S8 UV) ,P#UY) ,ALUV), 

A2(Y),B1(V),B20Y) ,C1(Y) ,C2(Y)&NEXT 

5053 60SUB 7000 

3060 S=1 

5085 Y=COUP(S) 

5070 C=2 

5080 ON Y 60SUB 200,201,202,203,204,205, 

206,207,208,209,210,211,212,213,214,215, 

216,217,218,219,220,221,222,223,224,225, 

22b,227,228,229,230,232,233,234,235,236, 

237,238,239,240,241,243,244,245,246,247, 

248,249,250,251,252 

5100 LOCATE #1,1,1:PRINT #1," Ville Capit 

ale d'Etat:";" "sC$(Y) 

5105 PLOT A1(Y),A2(Y),0:60SUB 4100 

5110 LOCATE #1,1,3: INPUT #1,"XETATX:"3ET 

#(Y) 

5120 IF ET$(Y)=E8(Y) THEN LOCATE #2,1,5: 

PRINT #2," BRAVO":FOR 1=1 TO 10: SOUND 1,1 

#20,20,7:NEXT I:6070 5140 

5130 IF ET$(Y)CDES(Y) THEN LOCATE #2,1.5 
{PRINT #2,"X FAUX X':LOCATE #1,5,4:PEN 4 
1,0:PRINT #1," XREPONSEX:"3ES$(Y):PEN 81,1 
FOR 1280 TO 100 STEP 20:SOUND 1,1#10,15 
0,75512:NEXT&FOR 121 TD 1000:NEXT:60T0 
5150 

3140 SCORE=SCORE+1:ESSAI=ESSAI +1:LOCATE 
#3,3,2:PRINT 83,USING "#4"; SCORE: LOCATE 
H3,3, 4: PRINT #3,USING "#4"; ESSAI:FOR iz1 
TO 200:NEXT:LOCATE #2,1,5:PRINT #2," 

":C=0:PLOT A1 (Y) ,A2(Y),0:60SUB 4100:60 

T0 5160 | 

5150 ESSAI=ESSAI+1:LOCATE #3,3,2:PRINT # 
JUSING "#4"; SCORE: LOCATE #3,3,4:PRINT # 
J,USING "#4" ;ESSAI:LOCATE #2,1,5:PRINT 4 
2," "PEN #1,1:PLOT AL(Y),A2(Y),0:6 

OSUB 4100:C=0 

5160 ON Y 60SUB 200,201,202,203,204,205, 
206,207,208,209,210,211,212,213,214,215, 
216,217,218,219,220,221,222,223,224,225, 
22b,227,228,229,230,232,233,234,235,23b, 
237,238,239,240,241,243,244,245,246,247, 
248,249,250,251,252 

5220 IF ESSAI)19 THEN CLS #1:LOCATE 92,1 
,32PRINT #1,"LE TEST EST TERMINE":FOR I= 
1 TO 2000:NEXT:G60SUB 15000:60T0 3000 
5230 5=S+1:CLS #1:6070 5065 

7000 FOR A=1 TO 20:COUP(A)=0:NEXT:A=1 
7010 X=INT(RND#51)+1 

7020 FOR 2=1 T0 20:1F X=COUP(Z) THEN 701 


0 ELSE NEXT 

7030 COUP(A)zX 

7040 A=A+I 

7050 IF A)20 THEN 7070 

7060 G60TO 7010 

7070 RETURN 

15000 CLS #1:CLS 43 

15010 LOCATE #1,2,1:PRINT #1, "VOUS AVEZ 

TROUVE "ÿ SCORE; "REPONSES": PRINT #1," SUR 
"JESSAI;" QUESTIONS": PRINT #1," MOYENNE 
=) "ps PRINT #1,USING “#88.84"; (SCORE/ES 

SAI)#1004:PRINT #1," 2° 

15020 RETURN 

20000 "####4 VILLE H##FH#H 

20005 SCORE=0:ESSAI=0 

20010 BORDER 26:CLS #1:CLS #2:CLS #3: INK 
2,19:PEN #1, 

20020 LOCATE #2,1,1:PRINT #2,"X VILLES X 


20030 LOCATE #3,1,1:PRINT #3," XSCORE: 1" 
20040 LOCATE #3,1,3:PRINT #3," XESSAI: " 
20050 RESTORE 300:FOR Y=1 TO S1:READ ES 
Y),C8 UV) VIS UN, V280V) ,S8(Y) ,PSUY) AL (Y) 
A2UYI BL UV) ,B20Y) ,CLUY) ,C2Y):NENT 
20055 G0SUB 7000 
20080 S=1 
20085 Y=COUP (8) 
20070 C=2 
20080 ON Y 60SUB 200,201,202,203,204, 205 
,208,207,208,209,210,211,212,213,214,215 
,218,217,218,219,220,221 ,222,223, 224,225 
,226,227,228,229,230,232,233,234,235, 23 
,237,238,239,240,241 ,243,244,245,246, 247 
,248,249,250, 251,252 
20100 LOCATE #1,1,12PRINT #1,"ETATi";" * 
,E$(Y) 
20105 PLOT A11Y) ,A2UY) ,0:60SUB 4100 
20110 LOCATE #1,1,32INPUT #1, "XVILLE CAP 
ITALEX: "3 VOS (Y) 
20120 IF VES(Y)=C#(Y) THEN LOCATE #2,1,5 
2PRINT 42, "BRAVO":FOR 1=1 TO 10:SOUND 1, 
1#20,20,7NENT L:FOR 121 TO SO0:NEXT:BOT 
0 20140 
20130 IF VES(YIC)CSIYI THEN LOCATE 42,1, 
S2PRINT 42,"X FAUX X':LOCATE 41,5,4:PEN 
H1,0:PRINT #1," XREPONSEX: "CS Y)2PEN 4, 
1:FOR 1280 T0 100 STEP 20:S0UND 1,1#10,1 
50,7,,122NEXT:FOR 121 TO 1000:NEXT:60T0 
20150 | 
20140 SCORE=SCORE+1:ESSAI=ESSAI+1 :LOCATE 
43,3,2:PRINT 43,USING "#4"; SCORE: LOCATE 
US, 3, 4PRINT B3,USING "#8";ESSAI:FOR ie 
1 TO 200:NEXT:LOCATE #2,1,5:PRINT #2," 
":C=0:PLOT ALUY) ,A2UY) ,0:60SUB 4100:6 
OTO 20160 
20150 ESSAI=ESSAI+1:LOCATE #3,3,2:PRINT 
#3 USING "A4" SCORELLOCATE 43,3,4:PRINT 
B3,USING "AA" ;ESSAI:LOCATE 2,1 ,52PRINT 
n,' "LPLOT AL(Y),A2(Y),0:60SUB 410 
0:C=0 
20160 ON Y GOSUB 200,201,202,203,204,205 
,206,207,208,209,210,211,212,213,214,215 
,216,217,218,219,220,221,222,223, 224,225 
,226,227,228,229,230,232,233,234,235, 23 
,237,238,239,240,241 ,243,244,245,246,247 
,248,249,250, 251,252 
20220 IF ESSAL)19 THEN CLS #I:LOCATE 42, 
1,3:PRINT 41,"LE TEST EST TERMINE":FOR I 
=1 T0 2000:NEXT:80SUB 15000:60T0 3000 
20230 S=$#1:CL5 #1:60T0 20065 
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